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Non tutti i leoni 
som veramente Leoni. 


Ecco coma 
riconoscere un 
vero programma 
Leoni Informatica 








Quando per il tuo 
home-computer il negoziante 
ti offre un programma a basso còsto, dif¬ 
fidane. Nella quasi totalità dei casi si tratta di una 
copia duplicata, che per di più può non girare bene. Le 
conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili. Leoni Informatica, Azienda leader, fa programmi 
da sempre, e da sempre è sinonimo di altissima qualità. Riconoscere questi 
programmi è facile. La classica confezione bianca e blu è accuratamente si¬ 
gillata. All'interno, allegate al floppy disk, vi sono le istruzioni in italiano e, cosa 
importantissima, la cartolina di garanzia. Inoltre Leoni Informatica è stata la 
prima in Italia ad offrire la garanzia a vita, l’assistenza ed il continuo aggiorna¬ 
mento dei suoi programmi. Al tuo negoziante chiedi quindi la qualità, l’assisten¬ 
za e l'aggiornamento: chiedi i programmi Leoni Informatica. 
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Richiedi a Leoni Informatica l’elenco g uida ai suoi pro g rammi. 


Leoni 



iniórmafica 


Leoni Informatica non ti abbandona mai 


Leoni informatica S.r.l. - Sviluppo Software * Vendita Hardware 
Via Valsolda, 21 - 20143 Milano * Tel 02 - 8467378-8465072 


Potete trovare i nostri programmi in tutta Italia nei punti vendita Buffetti 
e dai rivenditori autorizzati che espongono il nostro marchio. 
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Guida per l’input dei programmi versioni VIC IO e C64 


Notate che i listati contengono '‘parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 
{HOME} 
{SU} " 
{GIU* } 
{SIN} 
{DES} 

{RVS} 
{OFF} 

{BLK} 

{WHT} 
{RED} 


SMlFt 

M 

CIR/HOME 

mm 




cir/home] 

■ 



smiet 

! 

n CRSR U 

mm 




W CRSR U 


WKKKM 

[ SMI FI 

X 

C=CRSR=3] 


<=CR$R=3 


F5H1 Q 
EHI □ 


CTRL 

IH 



CIRI 

|2 



[ CTRL 

a 


C 


s 


n 




E 


0 


{CYN } 
{PUR} 
{GRN } 
{BLU} 
{YEL} 
[<1>] 
( < 2 > ] 
( < 3 > } 
(<4>) 
[<5>] 
(< 6 >) 



It. !<7>] 
H t<8>] 
□ (FU 
a (F2i 


CTRL 


30 

□ a 

30 

30 

30 

30 



{F3} 

□ 

{F4} 

15 

{ F 5 } 


{ F6 } 

: o 

{ F7 } 

E 

■1 

{ F 8 } 


30 

n 

30 

■ ■ 
■ ■ 

KZ3 

■ 

ra 

51 


B 

czj 

ie 

03 

il 

03 

9 

GB 

II 

HO 
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Air defcnse 



L obiettivo di AIR DEFENSE è di difendere la ' 
terra dalle bombe scagliate verso il pianeta dei 
malvagi kyltomani che lo vogliono distruggere. 

Il giocatore, per raggiungere questo obiettivo 
deve centrare nel suo mirino la bomba in ca¬ 
duta e sparare, in modo da non farla giunge¬ 
re a terra ed evitare che i suoi effetti letali dan¬ 
neggiano la popolazione terrestre e la superfi¬ 
cie del pianeta. 


Per muovere il mirino sullo schermo è sufficiente 
premere i seguenti tasti: S per muoverlo verso 
l'alto. X per muoverlo verso il basso. CRSR. 

UP/DOWN per muoverlo a sinistra, CRSR 
RIGHT/LEFT per muoverlo a destra e. per fini¬ 
re, la BARRA SPAZIO per sparare. 

Dopo la caduta di 20 bombe verrà mostrato 
il sommario finale, recante il numero di bom- 
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he mancate (che hanno toccato terra), il nu¬ 
mero di bombe neutralizzate ed il punteggio 
finale. 


90 POKE36879,26 
100 X=RND(0) 

110 A=81 52:B=38872:P=0:M=0:T=0:Q 
= 0 

120 PRINT"{CLR}{ 7 GIU'} 

{ 5 SPAZI}AIR DEFENSE" 

130 PRINT" { 2 GIU'HCYN} 

{ 2 SPAZI}ISTRUZIONI ? <S/N) 
{GIU* } " 

140 FORH=IT01 000 :GETDS 
170 IFD$ = "N"THEN3 80 
180 IFD$="S"THEN220 
190 NEXT 

200 PRINT"{RED}DAI FORZA! SCEGLI 

.{GIU'}{BLU}NON MI FARE 

ATTENDERE!" 

210 FORK=1 TOSO0 0 :NEXT: GOTO!20 
220 PRINT"{CLR}{ 3 GIU'}{BLU}PER 
MUOVERE IL MIRINO 
{ 5 SPAZI}BISOGNA USARE:" 

270 PRINT"{CYN}{GIU'}*{RVS}SINIS 
TRA{OFF}=UP/DOWN" 

280 PRINT"{GIU'}*{RVS} DESTRA 
{OF F}= LEFT/RIGHT" 

290 PRINT"{GIU'}*{RVS} 

{ 3 SPAZI}SU{ 3 SPAZI}{OFF}= 
S" 

300 PRINT"{GIU'}*{RVS} 

{ 2 SPAZI}GIU'{ 2 SPAZI} 
{OFF}=X" 

310 PRINT"{GIU’}*{RVS} FUOCO. 

{OFF}=SPAZIO" 

340 PRINT"{ 2 GIU'}{RED}* 

{ 2 SPAZI}PREMERE UN TASTO 
{ 2 SPAZI}*" 

350 GETDS:IFD$=""THEN350 

360 PRINT" {CLR} { 10 GIU'HGRN} 

{ 3 SPAZI}BUONA FORTUNA !!" 
370 FORI=1T02500:NEXT 
380 IFT=20THEN860 

390 PRINT"{CLR}":D=INT(RND(1)*10 

) 

400 T=T+1 
410 E=D+7685 
420 F=D+38405 

425 PRINT"MANCATI"M:PRINT"{GIU'} 
N{<V>] DEL MISSILE"T:PRINT" 
{GIU'}COLPITI"P 

430 PRINT"{GIU'}PUNTEGGIO"P*Q*10 

440 FORI=1TO3000:NEXTI 
450 POKEA, 91 :POKEB,0 
460 GETA$ 

470 IFA$="S"THENA=A-22:B=B-22 
480 IFA$="X"THENB=B+22:A=A+22 
490 IFA$="{DES }"THENA=A+1:B=B+1 


Inoltre durante la partita questi valori verran¬ 
no mostrati prima della caduta di ogni boni 
ba. conipletamente aggiornati. 


500 IFA$="{GIU'}"THENA=A-1:B=B-1 

510 IFA< 7680THENA=A+22:B=B+22 
520 IFA>8 1 63THENA=A-22 : B--B-22 
530 POKEE,42 :POKEF,0 
540 FORI=1TO50:NEXT 
550 IFE>8163THENGOTO760 
560 IFA=ETHEN580 

570 E=E+22:F = F+22:PRINT"{CLR) " :G 
OTO450 
580 GETBS 

590 IFB$=" "THEN620 
600 GOTO570 

610 REM BOMBA DISTRUTTA 

620 X=100:FORI=lTOl0:POKEE,X 

630 POKEF,0 

640 POKEE+21 ,X 

650 POKEF + 21 , 0 

660 POKEE+24 , X 

670 POKEF+24,0 

680 X=X+1 

690 NEXT 

700 NO=210:Sl=-3:DU=60:GOSUB960 
710 P=P+1 

720 Q=Q+22-INT((A-76801/22) 

730 A=A-22 :B=B-22 

740 GOTO380 

750 REM BOMBA COLPITA 

760 POKEE,32:FORI=lT05 

770 POKEE-I,188 

780 POKEF-1,0 

790 POKEE+1,190 

800 POKEF+I,0 

810 FORS=1TO50:NEXT 

820 NEXT 

830 M=M+1 

840 NO = l35 : SI=-2 :DU = 100 :GOSUB960 
850 GOTO380 

860 PRINT"{CLR}{GIU’}{ 6 SPAZI} 
{RED}GAME OVER!" 

870 PRINT"{ 3 GIU'}{PUR}MISSILI 
DISTRUTTI"P 

880 PRINT"{ 2 GIU'}{BLU}MISS ILI 
MANCATI"M 

890 PRINT"{ 2 GIU'}{GRN}PUNTEGGI 
O"P*Q*10 

900 FORI=lTO30:GETD$:NEXTI 
910 PRINT"{ 4 GIU'}{YEL}PREMERE 
{RVS}G{OFF} PER GIOCARE." 

920 GETDS:IFD$=""THEN920 
930 IFD$="G"THENl10 
940 END 

950 REM ESPLOSIONE 
960 POKE36877,NO 
970 FORI=l5TOVSTEPS1 
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980 POKE368 78,1 995 POKE 36877,0:POKE36878,0 

990 FORDELAY=1TODU:NEXTDELAY:NEX 

TI 997 RETURN 



Spesso si ho l'esigenza di poter programmare 
parecchi caratteri simultaneamente, vedendoli 
accostati l'uno all'altro. 

Questo fantastico programma che gira su VIC 
20 inespanso (usa solo 2 K di memoria) per¬ 
mette di svolgere facilmente ed agevolmente 
tale compito. 

Mediante esso è possibile programmare una 
griglia di 3x3 caratteri, che sullo schermo ven¬ 
gono simboleggiati da una griglia ben più gros¬ 
sa di 24 per 24 caratteri, modificabile mediante 
i seguenti tasti: 

il tasto recante l'asterisco (*) per accendere 
il pixel su cui si trova il cursore; 
il tasto spazio per spegnere il pixel su cui si trova 
il cursore; 


1 POKE36869,254:POKE648,2 8 :POKE3 

6866,22 

2 POKE55,0 :POKE56,2 4 :CLR 
6 POKE36866,24 

8 POKE36867,56 
10 POKE36864,10 
12 POKE36865,17 
14 POKE36879,24 
16 SCREEN = 7168 
18 COLOUR=37888 
20 CHARACTERS = 6 1 4 4 

30 FORJ=CHTOCH + 87 :POKEJ,0 :NEXT 

31 POKECH+83,24 :POKECH + 84,24 

3 2 FORJ = CH + 8 8TOCH + 9 5 :POKEJ, 2 55 :N 

EXT 

4 0 PRINT" {CLR} " ; 

50 FORJ = SCTOSC+2 4*24-1 :POKEJ,10: 
NEXT 

60 FORJ=COTOCO+24*24-1 :POKEJ,6:1 
FJ=INT(J/8)* 8THENPOKEJ,7 
6 2 K% =(J-CO)/24 : IFK% = 0ORK% = 8ORK% 
=16THENPOKEJ,7 
65 NEXT 


/ tasti cursore (CRSR) per spostare il cursore 
sulla griglia. 

Mentre si modificano i maxipixels della griglia 
più grande, nelle 4 linee restanti sul fondo del¬ 
lo schermo vengono visualizzati i nove fatidici 
caratteri che stanno per essere programmati. 
Se, dopo aver programmato i nove caratteri si 
desidera sapere i numeri necessari per crearli, 
è necessario rilevare il contenuto delle locazio¬ 
ni che si trovano tra 6144 e 6215 mediante 
varie istruzioni PEEK. 

Ad esempio inserire in modo diretto, cioè sen¬ 
za numero di linea: 

FORI = 6144T06215:PRINTPEEK(I);:NEXT 
E adesso via verso... nuovi caratteri program¬ 
mati! 


70 FORJ = SC + 2 4 * 2 4TOSC+2 4 * 2 9 :POKEJ 
,9:NEXT 

80 POKESC + 5 86,0 :POKESC+587,1 :POK 
ESC+588,2 

82 POKESC+610,3:POKESC+611,4:POK 
ESC+612,5 

85 POKESC + 634,6:POKESC + 635,7:POK 
ESC+636,8 

90 POKECO + 586,0 :POKECO+587,0 :POK 
ECO+588,0 

92 POKECO+610,0:POKECO+611,0:POK 
ECO+612,0 

95 POKECO+634,0:POKECO+63 5,0 :POK 
ECO+636,0 

100 OF = PEEK(211)+22*PEEK(214) 

110 POKE COLOUR+OFFSET,8 

120 GETG$: IFG$ = ""GOTOl20 

125 POKECOLOUR+OFFSET,6 

130 IFG$ = " "ORG$ = "*"GOTO200 

140 IFG$="{HOME}"THENOFFSET=0 

142 IFG$ = "{SU } M THENOFFSET=OFFSET 
- 2 4 
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144 IFG$="{GIU'}"THENOFFSET=OFFS 
ET+24 

1 4 6 I FG$ = " { DES } "THENOFFSET=OFFSE 
Tf 1 

ì 48 IFG$ = "{SIN)"THENOFFSET=OFFSE 
T- 1 

150 IFOFFSET< OTHENOFFSET=0 

1 52 IFOFFSET> 2 4*24-1 THENOFFSET= 2 
4*24-1 

154 POKG214,OFFSET/22 :POKE211 ,OF 
FSET-INT(OF/22)*22 
156 GOTOl00 


200 ROW% =INT(OFFSET/2 4) :COL%=OFF 
SET-2 4 * ROW% 

210 CHAR% = 3 *INT(ROW%/8)+INT(COL% 
/B) 

220 BYTE%=CHARS + 8 *CHAR%+ROW%-INT 
(ROW%/8)*8 

300 IFG$ = n *"THENPOKESC+OF,11 :POK 
EBYTE%,PEEK( B YTE%)OR2E(7-COL 
% + INT(COL%/8)*8) 

310 IFG$ = " "THENPOKESC+OF,10 :POK 
EBYTE%/PEEK(BYTE%)AND NOT 2E 
(7-COL%+1 NT(COL%/8)*8) 

320 GOTOl00 


CIÒ*- plus/4 


Bioritmi 


la teoria dei bioritmi affermo che nello vita di 
ognuno di noi ci sono tre cidi che iniziano dal 
giorno dello nascita, e cioè il ciclo fisico (che 
duro 23 giorni), il ciclo emotivo (28 giorni) ed 
il ciclo intellettivo (33 giorni). Le nostre capaci 
tà fisiche, emotive ed intellettive sono influen¬ 
zate secondo tale teoria dal valore (compreso 
tra + / e - ì) di questi cicli; se questo valore 
è positivo, le nostre condizioni saranno tanto 
più buone quanto più esso e prossimo a I . in 
particolare se è in aumento. Il contrario avvie¬ 
ne se il valore è negativo. 

Questo semplice programma calcola, in base 


100 DIMG(2),M(2),A(2),M$(12) 

110 FORI = 1TOl2 :READM$(I) :NEXT 
120 DATAGENNAIO,FEBBRAIO,MARZO,A 
PRI LE,MAGGIO,GIUGNO 
130 DATALUGLIO,AGOSTO,SETTEMBRE, 
OTTOBRE,NOVEMBRE,DICEMBRE 
140 GOSUB670:GOSUB720:PRINT" 
{GIU'}":GOSUB780 


150 COLORO,2:COLOR4 / 2:PRINT" 

{CLR}{BLU)DATA: "G(2)M$(M(2) 
) A (2) 

160 PRINT"{GIU*}[< 40 U>]" 

170 FORK = lT02: IFM(K)>2THEN200 


alla vostra data di ncscita. i valori in qualsiasi 
giorno dei vostri cicli bioritmici e la loro media : 
è possibile visualizzare consecutivamente i dati 
di più giorni successivi, pei confrontare i valori 
e quindi stabilire se un dato ciclo è crescente 
o decrescente in un certo giorno. I quattro va¬ 
lori numerici sono mostrati sul video assieme 
ad altrettanti istogrammi (cioè linee di lunghez¬ 
za proporzionale ai numeri) che. apparendo 
versi nei giorni "alti" del ciclo e rossi nei giorni 
“bassi'', vi aiutano od analizzare la situazio 
ne con un semplice colpo d'occhio. 


180 F(K)=365*A(K)+G(K)+31 *(M(K)- 
1)+INT((A(K)-l)/4)-INT(.75*I 
NT ( ( A ( K) -1 ) /I 00-fl ) ) 

190 GOTO220 

200 F(K)=365*A(K)+G(K)+31 *(M(K)- 
1)-INT(.4*M(K)+2.3)+INT(A(K) 
/ 4 ) 

210 F(K)=F(K)-INT(.75*(INT(A(K)/ 
100)+!)) 

220 NEXT:L = 23 :MD = 0:FORK=1T03:C(K 
)=SIN(2**(F(2)-F(l))/L):MD= 
MD+C(K):L=L+5:NEXT 

230 PRINT"{PUR}CICLO FISICO 

{ 2 SPAZI}*********** "; :K=1 
:GOSUB500 :GOSUB320 
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240 PRINT"{PUR}CICLO EMOTIVO 

{ 2 SPAZI)********** "; :K=2: 
GOSUB500:GOSUB320 
250 PRINT"{PUR}CICLO INTELLETTIV 
0{ 2 SPAZI}***** "; :K = 3:GOSU 
B500:GOSUB320 

260 PRINT"{GIU')[<5>]MEDIA DEI C 
ICLI{ 2 SPAZI)******** "; :K= 
0:C(0)=MD/3:GOSUB500:GOSUB32 
0 

270 GOSUB530 

280 GOSUB560:IFC$="S"THENl40 
290 IFC$=CHR$ (13) THENGOSUB580 :GO 
TOl 50 

300 IFC$="G"THENGOSUB670:GOSUB78 
0 : GOTO150 
310 GOTO230 

320 T=C(K)*19+19:W=INT((T-INT(T) 

)*8) :GOSUB510:PRINT"[< M >]"TA 
B ( 39 ) " [<G> )";:GOSUB520 
330 IFC(K)>=0THENPRINT"{GRN}";:G 
OTO 360 

340 PRINT”[<M>)(RVS){RED} 

{ 19 SPAZI){ 20 SIN}{OFF}"; 
350 FORI = 1 TOT:PRINTTAB(I)" "; : NE 
XT:PRINT"{SIN}{RVS}";:G0T038 
0 

360 IFT<=20THEN380 
370 FORI=20TOT:PRINTTAB(I)"{RVS} 
";:NEXT:PRINT"{OFF}"; :IFT=3 
8THENPRINT:RETURN 
380 PRINTTAB(T+l);sONW+1GOTO390, 

400,410,420,430,440,460,480 
390 PRINT" RETURN 
400 PRINT"[<G>)":RETURN 
410 PRINT"[<H>]":RETURN 
420 PRINT"(<J>)": RETURN 
430 PRINT"[<K>]":RETURN 
440 IFT<19THENPRINT"{OFF}[<L>]": 
RETURN 

450 PRINT"{RVS}(<L>]": RETURN 
460 IFT<19THENPRINT"{OFF}[<N>)": 
RETURN 

470 PRINT"{RVS}[<N>]": RETURN 
480 IFT<19THENPRINT"{OFF}[<M>)": 
RETURN 

490 PRINT"{RVS}[<M>]":RETURN 
500 PRINTINT(C(K)*100)/I00:RETUR 
N 

510 PRINT"{BLU} [< 38 @>]":RETUR 

N 

520 PRINT" [< 38 T>]{ 2 SU}":RET 
URN 

530 PRINT"(<1>){GIU 1 } {RVS} 

{ o SPAZI}PREMI <S> PER SMET 
TE. { 8 SPAZI}" 

540 PRJ • n " {RVS}{ 5 SPAZI}<RETUR 
N~> R GIORNO SEGUENTE 
{ PAZI}" 

550 PI " {RVS} { 9 SPAZI }<G> PE 
P . HO GIORNO{ 9 SPAZI} 

SU}":RETURN 


560 GETCS:IFC$=""THEN560 
570 RETURN 

580 FG=0:M=M(2):G=G(2):IFG(2)<28 
THEN660 

590 LM=M=10RM=30RM=50RM=70RM=80R 
M=10ORM=l2 

600 IFM = 2ANDINT(A(2)/4)*4=A(2) AN 
DG=28THENG = 2 9 :GOTO620 
610 IFM=2THENG=30 
620 IF(LMANDG=31)OR(NOTLMANDG=30 
)THENFG=1 
630 IFFG=0THEN660 
640 G(2)=1:M(2)=M(2)+1 :IFM(2)=13 
THENM(2)=1 : A(2)=A(2)+1 
650 RETURN 

660 G(2)=G(2)+1:RETURN 
670 COLORO,8:COLOR4,8:PRINT" 

{CLR}[<7>){ 9 SPAZI}{RVS}U 
{19* U" 

680 PRINT ir { 9 SPAZI) {RVS }- 
{ 19 SPAZI}-" 

690 PRINT"{ 9 SPAZI}{RVS}- 

{ 2 SPAZI}B I O R I T M I 
{ 2 SPAZI}--" 

700 PRINT"{ 9 SPAZI}{RVS}- 
{ 19 SPAZI}-" 

710 PRINT"{ 9 SPAZI){RVS}J 

{ 19 _*}K{ 3 GIU’}":RETURN 
720 IFC$O"S"THEN770 
730 PRINT"{BLU}{ 4 GIU'} 

{ 5 SPAZI}NUOVA DATA DI NASO 
ITA{ 2 SPAZI}(S/N)?" 

740 GETC$:IFC$=""THEN740 
750 IFC $ = "S"THENRU N 
760 PRINT"{CLR}": END 
770 PRINT"{BLU}{RVS}DATA DI NASC 
ITA:": 1 = 1 :GOSUB790 : RETURN 
780 PRINT"{BLU}{RVS}DATA DEI BIO 
RITMI :": I = 2 :GOSUB790: RETURN 
790 INPUT"{GIU 1 JGIORNO (1-31)";G 
G$:G(I)=VAL(GG$):IFG(I)>0AND 
G(I)<32THEN810 
800 PRINT"{SU}{ 30 SPAZI} 

{ 2 SU}":GOTO790 

810 INPUT"MESE (1-12)”;MM$:M(I)= 
VAL(MM$) :IFM(I)> 0ANDM(I)<13T 
HEN830 

820 PRINT"{SU}{ 30 SPAZI}{SU}":G 
OTO810 

830 INPUT"ANNO (ES. 1985)”;AA$:A 
(I)=VAL(AA$):IFA(I)>999ANDA( 
I)<1E4THENRETURN 

840 PRINT"{SU}{ 30 SPAZI}{SU}":G 
OTO830 


N.B. Alla linea 220 di questo listato, è 
“saltato” il carattere ir (Pi greco), che 
va inserito tra i due asterischi. Ce ne 
scusiamo con i nostri lettori. 
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S.A.M. 


Se/ il comandante di una base di lancio per mis¬ 
sili terra-aria teleguidati. Devi intercettare e col¬ 
pire le astronavi nemiche che si muovono nel 
tuo spazio aereo: usa la barrra spaziatrice per 
lanciare i missili, e per guidarli utilizza i tasti 

I (gira a sinistra) e P (gira a destra). 

II gioco inizia al primo livello e può evolversi fi¬ 
no al quinto. 

Completi il primo livello abbattendo 5 nemici. 


il secondo abbattendone IO e cosi via: perdi 
un punto per ogni missile lanciato, ma hai un 
guadagno netto di 5 punti per ogni astronave 
centrata al livello I, di IO punti al livello 2. ecc. 
Se lanci un nuovo missile quando il preceden¬ 
te è ancora in volo, quest 'ultimo si autodistrug¬ 
ge. La partita termina se tre missili di seguito 
escono dallo schermo senza aver colpito La 
stronave. 


10 VOL8: COLORO,14,6:COLOR4,6 :SC = 
3072:CL=2048:FG=0 

20 DIMDR%(7,1) :DIMMC%(7) :EX = -1 :L 
V= 1 

30 FORI=0TO7:READDR%(1,0):READDR 
% ( 1,1) :NEXT:FORI = 0TO7:READMC% 
(I):NEXT 

40 DATAI,0,1,-l,0,-1,-l,-l,-l,0, 
-1,1,0,1,1,1,62,78,30,77,60,7 
8,33,77 

50 PRINT"{CLR}{RED}{ 3 GIU'}" 

60 PRINT"{ 9 SPAZI}U{ 2 *Jl^ 

{ 3 SPAZI}U{ 2 3 SPAZI} 

U*IU*I " 

70 PRINT"{ 9 SPAZI}-{ 2 SPAZI} 

[ <E> ] { 3 SPAZI}--! 2 SPAZI }- 
{ 3 SPAZI}-_ { 2 _-} -" 

80 PRINT" { 9 SPAZI}j{ I *}l. 

{ 3 SPAZI}[<Q>]{ 2 *}T<W>] 

{ 3 SPAZI}-^ JK -" 

90 PRINT"{ 9 SPAZlT[<R>} 

{ 2 SPAZI}-{ 3 SPAZI }_- 
{ 2 SPAZI}-J 3 SPAZI}-^ 

{ 4 SPAZI j^-" 

100 PRINT"{ 9 SPAZI}J{ 2 *}K Q 
[<E>]{ 2 SPAZI}[<E>] Q T<E>] 

{ 4 SPAZI}[<E>) Q" 

110 PRINT"{BLK}{ 2 GIU'} 

{ 10 SPAZI}TASTI DI CONTROLL 
0 

120 PRINT"[<7>] { 2 GIU'} 

{ 6 SPAZI}{RVS}I{OFF} 

{ 3 SPAZI}GIRA IL MISSILE A 
DESTRA" 

130 PRINT"{GIU 1 }{ 5 SPAZI}{RVS}P 
{OFF}{ 3 SPAZI}GIRA IL MISSI 
LE A SINISTRA" 


140 PRINT"{GIU'}{ 1 SPAZI}{RVS}S 
PAZIO{OFF}{ 3 SPAZI}LANCIA I 
L MISSILE" 

150 PRINT"{RED}{ 2 GIU'} 

{ 7 SPAZI}PREMI {RVS}RETURN 
{OFF}{ 2 SPAZI}PER INIZIARE" 

160 GETA$:IFA$<>CHR$(13)THENl60 
180 PRINT"{CLR}{BLU}{RVS}"TAB(16 
)" S.A.M. " 

190 GOSUB670:K=0:N=LV* 5 :PC=0 
200 FORI=OTO39:POKE4032+1,104:PO 
KE3008+1,57:NEXT 

210 POKE4 0 50,8 5 :POKE40 51 ,66 :POKE 
4052,73 

220 MX=2:MY=22:D=2:F$="":FG=FG+1 
:IFFG=4THEN680 
230 GETA$:TN=TN+1 
240 IFA$< >" "THEN280 
250 SOUND3,750,5:SOUND3,765,5: SO 
UND3 ,780,5: SOUND3 , 795,10 
260 PT=PT-1:PC=PC-1:GOSUB670 
270 POKESC + 40*MY+MX,32 :MY=22:MX= 
19 :D = 2:POKESC + 40*MY+MX,MC%(D 
):F$="F" 

280 IFF$=""THEN380 
290 POKESC + 40*MY+MX,32 :POKECL+40 
*MY+MX,0 

300 MX=MX+DR%(D,0):MY=MY+DR%(D,1 

) 

310 IFMX< 0ORMX>39ORMY< 20RMY>23TH 
EN220 

320 TG=PEEK(SC+40*MY+MX) 

330 IFTG032THENGOSUB560 :GOTO230 

340 POKESC+40*MY+MX,MC%(D):POKEC 
L+40*MY+MX,0 










350 IFA$="I"THEND=D+1:IFD>7THEND 
= 0 

360 IFA$="P"THEND=D-1 :IFD<0THEND 
= 7 

370 SOUNDl,1000-ABS(EX-MX)-ABS(E 
Y-MY),3 

380 IFTNK6-LVTHEN230 

390 TN=0:IFEX>=0ANDEX<=39THEN430 

400 FORI = 1TOl0 : SOUND2,900-5*1,4: 

FORJ-1T04:NEXTJ:NEXTI 
410 EX = 0:ED = 1 :IFRND(0)>.5THENEX = 
3 9 : ED = 5 

420 EY=INT(RND(0)*8+RND(0)*8+2) 
430 POKESC+40*EY+EX,32 
440 IFEY+DR%(ED,1)< 3THENEY=3:ED = 
I NT(RND(0)*5 + 4) :GOTO510 
450 IFEY+DR%(ED,1)>23THENEY=23: E 
D=INT(RND(0)*5):GOTO530 
460 EX=EX+DR%(ED,0):EY=EY+DR%(ED 
,1) 

470 ED=ED+INT(RND(0) *3) - 1 
480 IFEX<0THENEX=1:ED = INT(RND(0 ) 
*4 + 6) 

490 IFEX>39THENEX=38:ED=INT(RND( 
0)* 5 + 2) 

500 IFED< 0TMENED = ED+7 
510 IFED>7THENED=ED-7 
520 EG=PEEK(SC+40*EY+EX) 

530 POKESC + 40 *EY+EX,65:POKECL+40 
*EY+EX,49 

540 IFEG032THENGOSUB560 
550 GOTO230 

560 POKESC + 4 0 *MY+MX,42 :PT=PT+5*L 
V+l:PC=PC+5*LV+1:FG = 1 
570 FORI = lT025:S0UND3,1 000-5*1,5 
: NEXT 


580 FORI = 60TOl27 :POKECL+4 0*MY+MX 
,I :NEXT 

590 F$="":POKESC+40*MY+MX,32:X=1 
9 :MY = 2 2 :EX=-1:K=K + 1 
600 IFKONTHEN670 

610 FORI=lTO20 + 2*LV: SOUND 1,600 + 1 
*5,5:SOUND2,900-4*1,5:FORJ=1 
T05:NEXTJ:NEXTI 
620 FG=0:PRINTTAB(9)"{BLK} 

{ 5 GIU'}LIVELLO"LV" COMPLET 
ATO. " 

630 PRINTTAB(11)"{GIU'}PRECISION 
E = "100*PC/(N*5*LV) 

640 PRINT"{YEL}{ 2 GIU') 

{ 6 SPAZI}PREMI {RVS}RETURN 



650 LV=LV+1:IFLV>5THENLV=5 
660 PRINT"{HOME}{GIU'} 

{ 2 SPAZI}{RED{PUNTI {YEL}"; 
PT:GOTOl60 

670 PRINT"{HOME}{GIU 1 } 

{ 2 SPAZI}{RED{PUNTI {YEL} 

{ 6 SPAZI}{ 6 SIN}";PT:RETUR 
N 

680 PRINT"{HOME{{ 9 GIU'}{RVS} 

{BLK}"TAB(14)" FINE GIOCO " 
690 PRINT"{RED}{ 2 GIU'} 

{ 4 SPAZI}PREMI {RVS}RETURN 
{OFF}{ 2 SPAZI}PER GIOCARE A 
NCORA" 

700 FORI=1TO500:GETAS:NEXT 
710 GETAS:IFA$=""THEN710 
720 IFA$=CHR$(13)THENRUN 
730 SCNCLR:END 


::- 


Professor Scorpion 


r - 

# 11 . 

£Qi| 

-- 






Uro dei più importanti settori di utilizzo dei Per¬ 
sonal computers è senza dubbio l'educazione. 
I programmi educativi sono molti, anche se non 
sempre efficaci, o perché troppo banali o per 
ché troppo difficili da usare. Quello che vi pre¬ 
sentiamo ci sembra invece valido: il suo scopo 
è quello di insegnare a scrivere correttamente 
le parole, senza commettere errori di ortogra¬ 
fia. “Professor Scorpion ” (questo è il nome che 


abbiamo dato al programma, riferendoci al fat¬ 
to che le frasi sul video vengono scritte do un 
piccolo scorpione) memorizza fino a 50 paro¬ 
le, che devono venire impostate inizialmente; 
potete farlo voi, ma può anche farlo il vostro 
bambino, copiandole da un libro di lettura. 
Terminata questa prima fase, iniziano i quiz: 
ogni parola viene mostrata per circa un secon¬ 
do, per dare il tempo di riconoscerla. A questo 
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punto il bambino dovrà cercare di scriverla cor¬ 
rettamente, e il prof. Scorpion segnalerà se la 
scrittura è esatta o no. Alla fine del gioco vie¬ 
ne mostrato il bilancio delle risposte. 

Il programma chiede le parole nello stesso or¬ 
dine in cui sono state impostate; se volete che 


10 POKE52,48:POKE56,48 :CLR 
20 POKE53281 , 1 :PRINT"ICLR}":POKE 
53281 , 6 :POKE53280,6 
30 S = 54272:V=54296:AD = 54 277 :SR=5 
4278:HF=54273:LF=S:SD=54276 
40 FORL=STOS+24:POKEL,0:NEXT:POR 
EAD,14:POKESR,204 
50 FORI = 14 35T01 4 4 3 :POKEX,INT(RND 
(1)*25)+1 :NEXT:FORI = 1 445T014 5 
2 

60 POKEI,INT(RND(1)*25)+1 :NEXT:F 
ORI=1TO500:NEXT 

70 FORI=l435T01443:READL:POKEI,L 
+128:GOSUBl10:FORJ=1TO70:NEXT 
J:POKESD, 32 :NEXT 
80 FORI = 1 445T01452 :READL:POKEI,L 
+ 128:GOSUBl10 :FORJ = 1TO70:NEXT 
J:POKESD,32 :NEXT 
90 DATAI 6,18,15,6,5,19,19,15,18, 
19,3,15,18,16,9,15,14 
100 POKEI444,160:GOTOl20 
110 POKEV,15:POKEHF,40 :POKELF,50 
:POKESD,3 3 :POKEV,0 : RETURN 
120 PRINT"{HOME}{WHT}{ 15 GIU'} 

{ 3 DESjUN MOMENTO. 

.GRAZIE!" 

130 PRINTCHRS(142):POKE56334,PEE 
K(56334)AND254 
140 POKEI,PEEK(1)AND251 
145 FORI=0TO511 :POKEI + 1 2288,PEEK 
(1+53248):NEXT 

150 POKEI,PEEK(1)OR4 :POKE56334 ,P 
EEK(56334)ORI 

160 FORI = 1TO3 :READW:FORC =WTOW+ 7 : 

READA:POKEC,A :NEXT:NEXT 
170 DATAI 2288,96,128,77,63,31,13 
,0,0 

1 80 DATAI 2784,3,52,1 84,240,240,1 
84,52,3 

190 DATAI 2776,0,54,58,242,242,58 
,54,0 

200 DIMWS(50):CL=54272 
210 FORJ = lT07:READM$ ( J) :NEXT 
220 POKE53272,(PEEK(53272)AND240 
JORI 2 

230 POKE53281 ,1 :PRINT"{CLR}":POK 
E53281 ,6 :POKE53280,6 
240 R=1464:J = 1:GOSUB4 50 :GOSUB850 

250 N$=NM$:POKE53272,21 
260 GOSUB71 0 : POKE532 81 ,1 .-PRINT" 
{CLR}":POKE53281,6:POKE53280 
,8 


la scelta sia invece casuale (in tal caso. però, 
non tutte le parole verranno in genere selezio¬ 
nate) dovete apportare le seguenti modifiche: 
280 8 = INT(RND(l)*N)+ I :Z=Z+ I 
590 IFZ>NTHEN280 
595 Z = 0 


270 WG=0:RT=0 
280 FORB=1TON 

290 PRINT"{CLR}{WHT}":POKE214,12 
:PRINT:POKE211,INT((40-LEN(W 
$(B)))/2)-1 :PRINTW$(B) 

300 FORT=lT01000:NEXT 
310 PRINT"{CLR}{WHT}{ 4 DES}PER 
RIVEDERE LA PAROLA PREMI '?’ 

Il 

320 POKE53272,28:R=1464:J=2:GOSU 
B4 50 :GOSUB850 
330 A$=NM$ 

340 IFAS="LA PAROLA"THENJ=6:R=17 
04 :GOSUBl02 0:GOSUB4 50:R=154 4 
:GOSU B 7 9 0 : GOTO 29 0 
350 IFASC( A$ )=6 30RASC(A$)=47THEN 
290 

360 IFA$=W$(B)THENGOSUBl020:J = 5: 
M$(J)=M$(J)+" "+N$:R = 1 704 :GO 
SUB450 

370 IF J = 5THENRT=RT+1:GOSUB400:GO 
SUB570: GOTO560 

380 WG=WG+1:GOSUBl020:J=3:M$(J)= 
M$(J)+" "+N$:R=1704:GOSUB450 
:GOSUB570 

390 J=4:R=1824:M$(J)=M$(J)+" "+W 
S(B) :GOSUB4 50 :R = 1 54 4 :GOSUB79 
0:GOSUB570 

395 M$(J)="LA RISPOSTA ESATTA E' 

:": GOTO590 
400 : 

410 POKEV,15:POKESD,17:FORS=40TO 
100 

420 POKEHF,INT(RND(1 )*1 00 + 40) : PO 
KELF,S:FORD=lTO20:NEXT 
430 NEXT:POKESD,16:RETURN 

440 : 

450 C=((R-1024)/40)-l:CN=INT((40 
-LEN(M$(J)))/2)-l 
460 FORI=1TOLEN(MS(J)):LR=R+CN+I 
:IFLR>2023THENLR=2023 
4 70 FORK = lTO20:NEXTK:POKELR+1,32 

480 POKELR,0 :POKELR+1,62 :POKELR+ 
CL,1 :POKELR+CL+1,1 :GOSUBl 10: 
POKESD,32 

490 FORK=lTO20:NEXTK:POKELR,32 
500 A=ASC(MID$(M$(J),1,1)):IFA=3 
2THENPOKELR,A :GOTO530 
510 IFA<65ORA>90THENPOKE214,C:PR 
INT:POKE211,CN+I:PRINTCHRS(A 
): GOTO 530 




520 CH=A-64 :POKELR,CH:POKKLR+CL, 

1 

530 NEXT 

540 FORD=LR+lTOR+38:POKED,0 :POKE 
D+l,62:POKED+CL,3 :POKED+CL+1 
,3:GOSUBl10 

550 POKESD,32 :FORK = lTOT 0 :NEXTK:P 
OKED ,'32 : POKED + 1 , 32 : NEXT:RETO 
RN 

560 POKEl98,0:PRINT"{ 2 GIU'} 

{ 13’ DES } PREMI UN TASTO" :GOT 
0580 

570 M$ ( J )=MID$(M$(J),1,LEN(M$(J) 

)-LEN(N$)-1 ) : RETURN 
580 GETZ$:IFZ$=""THEN580 
590 NEXT 
600 : 

610 POKE53272,21 :PRINT"{CLR} 

{WHT}{ 3 GIU 1 }{ 11 DES}IL Gl 
OCO E’ FINITO" 

620 PRINT"{ 3 GIU’}{DES}ESATTE"T 
AB(30)"SBAGLIATE" 

630 PRINT"{GIU 1 }{ 2 DES}"RT;TAB( 
33);WG 

640 PRINT" { 8 GIU'H 7 DESjVUOI 
GIOCARE ANCORA (S/N)?" 

650 GETZ$: IFZ$ = ""OR(Z$< >"S"ANDZ$ 
< >"N")THEN650 

660 IFZ$="S"THENFORI = 1TON:W$(I ) = 
"":N EXT: GOTO 260 
670 PRINT"{CLR}{ 8 GIU'} 

{ 3 SPAZI}E' STATO MOLTO DIV 
ERTENTE GIOCARE{ 7 SPAZI}CON 
TE, "N$" . " 

680 PRINT"{ 2 GIU'}{ 10 DESjCI R 
I VEDI AMO PRESTO!" 

690 POKE53272,28:R=1704:J=7:GOSU 
B4 50:POKE53 272,21 : END 
700 : 

710 POKE53280,3 :POKE53281 ,3 
720 PRINT"{CLR}{BLU}{ 12 GIU'} 

{ 4 DES{QUANTE PAROLE FACCIA 
MO OGGI"; :INPUTZ$:N=VAL(Z$) 
725 IFN>50ORN=0THEN720 
730 PRINT"{CLR}{BLU}{ 3 GIU'} 

{ 5 DES}{RVS} VEDIAMO SE SAI 
L'ORTOGRAFIA! {OFF}" 

740 FORX=1TON 

750 POKE214,12:PRINT:POKE21 1 ,3:P 
RINT"IMPOSTA LA PAROLA N."X; 

: INPUT"{SIN}";W$(X) 

760 FORI=1T017 :POKE214,12:PRINT: 
POKE211,21+1:PRINTCHR$(32):N 
EXT 

765 IFLEN(W$(X))=0ORLEN(W$(X))>1 
0THEN750 

766 IFASC(W$(X))<650RASC(W$(X))> 
90THEN750 

770 NEXT:RETURN 
780 : 

790 FORI=RTOR+38 


I 800 CH = 62: IF(I + 1)/2 = INT( (I + D/2) 
THENCH=61 

810 POKEI+CL,l:POKEI+CL+l,1 
820 POKEl,0 :POKEl+ 1,CH:FORD = lT05 
0 :NEXTD 

830 POKEl,32:GOSUBl10:POKESD,32: 

NEXT:POKEl,32:RETURN 
840 : 

850 POKEl98,0 :POKEl561+CL,1 :POKE 
1S6 2+CL,1 :POKEl561,0:POKEl56 
2,62:CT=1:NM$ = "" 

860 GETZ§:IFZ$=""THEN860 
870 IFASC(Z$)=630RASC(Z$)=47THEN 
NM$=Z$: RETURN 

880 IFASC(Z$)= 32THENA = 32 : GOTO92 0 

890 IFASC (Z$) =1 3ANDLEN (NM$) O0TH 
EN950 

900 IFASC(Z$)< 6 50RASC(Z$)> 90THEN 
860 

910 A=ASC(Z$)- 64 

920 NM$=NM$+Z$:POKEl 560+CT,A :POK 
El 561+CT,0:POKEl 562+CT,62 
930 POKEl 560+CT+CL,1 :POKEl561+CT 
+CL,1 :POKEl 562+CT+CL,1:CT=CT 
+1 

940 GOSUBl10:POKESD,32:GOTO860 

950 IFJ< >1THENRETURN 
960 FORI = 1561TOl 582 :POKEl,32 :FOR 
J=ITOLEN(NMS) 

970 A = I+J:IFA>1 582THENA = 1 582 :POK 
EA,32:GOTO990 

975 AS=ASC(MID$(NM$,J,1)):IFAS<6 
50RAS >90THENPOKEA,3 2 :GOT0990 

980 POKEA+CL,1 :POKEA,AS-64 
990 NEXT:A=I+J+1 : IFA>1 58 2THENA=1 
582 :POKEA,32:GOTOl01 0 
1 000 POKEA-1+CL,1 :POKEA+CL,1 :POK 
EA-1,0:POKEA,62 

1010 FORK=1TO30:NEXTK:GOSUBl 1 0:P 
OKESD,32:NEXT:RETURN 
1020 FORI=l561+LEN(NM$)TOl581 
1030 POKEl+CL,1:POKEl+1+CL,1:POK 
EI + 2+CL,1 :POKEl,32:POKEl+ 1 , 
0 :POKEl+2,62 

1 040 GOSUBl10 :POKESD,32 :NEXT:POK 
EI,32:POKEl+ 1,32 : RETURN 
1050 DATA"CIAO, COME TI CHIAMI?" 

1060 DATA"COME SI SCRIVE LA PARO 
LA?" 

1070 DATA"MI DISPIACE, HAI SBAGL 
IATO" 

1080 DATA"LA RISPOSTA GIUSTA E': 

t» 

1090 DATA"BRAVO, HAI RISPOSTO BE 
NE" 

1100 DATA"MOLTO DIVERTENTE, SPIR 
ITOSONE!" 

, 1110 DATA"CIAO!{ 2 SPAZI}CIAO! 

' { 2 SPAZI}CIAO!" 
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La tua missione consiste nel trovare tre bom¬ 
be nascoste nei sotterranei di un castello, in 
cui ti muovi per mezzo del joystick n. 2. Le 
bombe sono state piazzate do un mago mal¬ 
vagio che vuole distruggere il castello. Questo 
mago ha anche posto a guardia delle bombe 
nove bestie mostruose, che per fortuna sono 
cieche e possono attaccarti solo se vai a sbat¬ 
terci contro. Se tuttavia trovi la spada magica 
(ve ne sono alcune disseminate nei sotterra¬ 
nei). puoi distruggere i mostri quando li incontri. 
Analogamente, se trovi la chiave magica puoi 
aprire tutte le porte chiuse. 


100 GOSUBl 8 80 : GOSUBl 33 0 : GOSUB440 
:GOSUB980:GOSUBl090:GOSUBl21 
0 : GOSU13990 
110 GOSUBl130 

120 GOSUBl400:GOSUBl740:GOSUB133 
0 : TI$ = "00 000 0" 

130 GOSUB200 : GOTO!3 0 
140 JOY = 0:JY = PEEK(56320) :J2 = l5-( 
JYANDl5) 

150 ONJ2GOTO160,170,170,180,180, 
180,180,190:RETURN 
160 JOY=-40:RETURN 
170 JOY=40:RETURN 
180 JOY = -ì : RETURN 
190 JOY =1 : RETURN 
200 GOSUBl40 

210 GETA$:IFA$="L”THENGOSUB810 :L 
E = -l 

220 IFTI$>"000300"THEN A$ = "TEM PO 
{ 2 SPAZI}SCADUTO":GOTO890 
230 TE®PEEK(MAN+JOY)-40:IFTE< 0TH 
EN LE = O:GOTO 390 

240 ONTEMPGOSUB250,260,280,290,3 
20,350,360,370,380:GOTO390 
250 GOSUB490 :JOY = 0: RETURN 
260 IF(NOTLE)THENPOKEMAN,BL:GOSU 
B340:A$ = "SEI CADUTO IN UN PO 
ZZO": GOTO310 
270 K=1:RETURN 

280 KEY = -1 :POKEl 303,43 :POKE55575 
, 1 : GOSUB680 -.RETURN 
290 GOSUB590 : IFNOTSWTHENA$ = "IL M 
OSTRO TI HA UCCISO"-.GOTO890 
300 GOSUB630 : RETURN 


Durante la tua ricerca hai con te una lanter¬ 
na, che ti consente di vedere sdo le tue imme¬ 
diate vicinanze. Se ti muovi troppo velocemen¬ 
te. rischi di cadere in uno dei pozzi senza fon¬ 
do che si trovano qua e là nel sotterraneo. 
Quando ti trovi presso uno di essi, premendo 
il tasto L reciti una formula magica che ti con¬ 
sente di sollevarti da terra "saltando'’ il pozzo. 
Le bombe esplodono dopo tre minuti; se entro 
tale tempo non le hai trovate tutte, esse di¬ 
struggono il castello. Ogni volta che giochi il ma¬ 
go mette i vari oggetti in posti diversi. 


310 GOSUB490 :FORTD=1TO200:NEXT:G 
OTO890 

320 BO = BO- 1 : POKEl 823 + 40*BO,45:PO 
KE56095+40*BO,1 : IFBO = 0THEN85 
0 

330 RETURN 

340 GOSUB530:GOSUB490:FORTD=lT02 
00:RETURN 

350 RETURN 

36 0 IFNOTKEYTHENGOSUB490 :JOY = 0:R 
ETURN 

370 RETURN 

380 SW = - 1 :GOSUB680 :POKEl 423,49 :P 
OKE55695,1 : RETURN 

390 XH = 0 :POKEMAN,BL:MAN=MAN+JOY: 
POKEMAN,FI : IFK=1THENPOKEMAN, 
4 2 :K=1 

400 Q=MAN-1024:Y=INT(Q/40):X=(Q- 
Y * 4 0) * 8 : IFX>255THENXH = I NT(X/ 
256) :X=X-XH* 2 56 

410 Y=Y*8+32:POKEHX,XH:POKELX,X : 
POKEYS,Y:BL= 32 

420 IFK-1THENK=0:BL=42 

430 RETURN 

440 FORI=1T04:READNO(1,1),DUR(1, 
I):NEXT 

450 FORI=1T07:READNO(2,I),NL(2,I 
),DUR(2,1):NEXT 

460 RETURN 

470 DATA8,100,7,50,7,50,12,300,1 
4 

480 DATA2,24,100,2,24,100,2,24,1 
00,2,1 63,100,2,24,1 00,2,1 63, 
100,3,35 
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490 : 

500 POKEHl,15:POKELl,10 
510 POKEVO,15:POKEAT,20 :POKESU,5 
:POKEWA,NO 

520 FORTD=lTOl0 :NEXT:POKEWA,NO-1 
: FORTD = 1 TO 2 : NEXT : RETURN 
530 : 

54 0 POKEAT,10:POKESU,10 :POKEVO, 1 
5 

550 FORI=200TOl00STEP-1 
560 POKElil,I :POKEH2,100:POKEWA,T 
R 

570 FORTD=lT03:NEXT:POKEWA,TR-1 : 

FORTD=1T03:NEXT:NEXTX 
580 RETURN 
590 : 

600 POKEAT,100 :POKESU,100:POKEVO 
,15 

610 POKEHl,2 :POKEH2,10:POKEWA,NO 
:FORTD = 1TO1 00 0 :NEXT:POKEWA,N 
O-l 

620 FORTD=1TOl00:NEXT:RETURN 
630 : 

640 POKEAT,100:POKESU,100:POKEVO 
,15 

650 F0RI=1T04:POKEHl,NO ( 1,1) :POK 
EH2,100 :POKEWA,SA 
660 FORTD=1TODUR(1,1):NEXT:POKEW 
A,SA-1 :FORTD = lTODUR(1,1) :NEX 
T:NEXT 
670 RETURN 

680 POKEAT,14 :POKESU,201 
690 POKEHl,120 :POKEWA,SA:FORTD = 1 
TOl00:NEXT:POKEWA,SA-1 
700 FORTD = 1TO200:NEXT: RETURN 
710 : 

720 POKEVO,15:POKEAT,17:POKESU,l 
40 

730 FORI=1T07:POKEH2,NO(2,I):POK 
EHI , NL (2,1) -.POKEWA,SA 
740 FORTD = 1TODUR(2,I) :NEXT:POKEW 
A,SA-1:FORTD=lTODUR(2,1):NEX 
T:NEXT:RETURN 
750 : 

760 POKEAT, 1 00 : POKESU, 1 20-.POKEVO 
,15 

770 POKEHl,4 :POKELl ,48 :POKEWA,SA 
:FORTD=1TO500:NEXT:POKEWA,SA 
-1 

7.80 FORTD = lTO400: NEXT: POKEHl ,2:P 
OKEL1,24:POKEWA,SA:FORTD=lTO 
900:NEXT 

790 POKEWA,SA-1:FORTD=ITO500:NEX 
T:RETURN 
800 : 

81 0 POKEAT, 100-.POKESU, 250: POKEVO 
,15 

820 FORA=10TO20:FORB=20TO27:POKE 
Hi,A+B:POKELl,40 :POKEWA,TR 
8 30 FORTD = 1T02:NEXT:POKEWA,TR-1 : 

F0RTD=1T02:NEXT:NEXT:NEXT 
840 RETURN 


850 POKE53269,0 :GOSUB710 :POKEBA, 

1 :FORTD = 1T02000:NEXT 
860 PRINT"{CLR}":POKE251,50:PRIN 
T"{BLK}{ 7 GIU'}{ 12 SPAZI} 
CONGRATULAZIONI !" 

870 PRINT"{ 2 GIU 1 }{ 8 SPAZI}HAI 
SALVATO IL CASTELLO" 

880 GOTO930 

890 POKE53269,0 :POKEBA, 1 :GOSUB75 
0:FORTD=lTO2000:NEXT 
900 PRINT"{CLR}{ 8 GIU'}{BLK}"SP 
C ( (40-LEN(A$ ))/2)A$ 

910 PRINT"{ 3 GIU 1 }{ 8 SPAZlJlL 
CASTELLO E' DISTRUTTO" 

920 GOTO940 
930 POKE251,0 

940 FORTD=lTO2000:NEXT:PRINT" 

{ 5 GIU 1 }{ 6 SPAZI}PREMI ’S' 
PER GIOCARE ANCORA" 

950 GETAN8:IFAN$=""THEN950 
960 IFAN$="S"THENPOKEBA,0:GOTOl2 
0 

970 POKE251,0:SYS2048 
980 FORL=679TO703: READA:POKEL,A: 
NEXT:POKE806,1 67 :POKE807,2 : P 
OKE251,40:RETURN 
990 PRINTCHR$(144)"{CLR} 

{ 5 GIU ' }{WHT}TROVA LE TRE B 
OMBE NASCOSTE NEI" 

1000 PRINT"{GIU'}SOTTERRANEI. NO 
N CADERE NEI POZZI E NON" 
1010 PRINT"{GIU'}FARTI MANGIARE 
DAI MOSTRI. PREMI {RVS}L 
{OFF} PER" 

1020 PRINT"{GIU'}SALTARE I POZZI 
. HAI 3 MINUTI PER" 

1030 PRINT"{GIU'^COMPIERE LA TUA 
MISSIONE." 

1040 PRINT:PRINT:PRINT" 

{ 4 SPAZI}{RVS} PREMI IL PU 
LSANTE PER INIZIARE " 

1 050 GOSUBl40:1FJY<>111THEN10 50 
1060 RETURN 

1070 DATA72,138,72,152,72,166,25 
1 ,2 40,8,1 60,255,136,208,253 
,202 

1 080 DATA208,248,104,168,104,170 
,104,76,202,241 

1 090 CM = 1 4336:CS=53248:POKE56334 
,PEEK(56334)AND254:POKEl,PE 
EK(1)AND251 

1100 FORI=0TOl023:POKECM+I,PEEK( 
CS+I):NEXT 

1110 FORI=CM+320TOCM + 320 + 95: READ 
A:POKEl,ABS(A-255):NEXT 
1120 POKEl,PEEK(1)OR4:POKE56334, 
PEEK (56334J.OR1 : RETURN 
1130 POKE53272,(PEEK(53272)AND24 
0)ORI 4 
1140 RETURN 

1150 DATA247,227,246,193,21 5,247 
,235,235,255,34,34,34,255,6 
8,68,68 


i4 


1160 DATA255,231 ,195,129,129,1 31 
,199,255,255,191,95,64,90,1 

86.255.255 

1 1 70 DATAI 91 , 1 21 , 1 1 2,1 ,0,1 35,55, 
115,255,239,247,231,195,195 
,231,255 

1180 DATA255,255,255,255,255,255 
,255,255,255,255,255,129,12 

9.255.255.255 

1190 DATA255,255,255,255,255,255 
,255,255,255,253,251 ,247,1 4 

3.207.175.255 

1 20 0 DATAI 91,121,112,1,0,135,55, 

1 1 5,255,255,231 ,0,0,231 ,255 
,255 

1 210 PRINTCHR$(147) :POKEBA,0 :POK 
EBR, 0 

1 2 20 READL,N : IFN=-1THENGOSUB710 : 

FORTD = 1TO 40 0 0 :NEXT:RETURN 
1230 FORJ=OTON:READS:POKEL+J, S : N 
EXT:GOTO 12 20 

1 240 DATAI 232,23,85,64,73,1 12,64 
,110,85,64,75,64,114,64,112 
,64,75,112,32,32 
1250 DATA112,32,32,85,64,73 
1 260 DATAI 272,23,93,32,32,107,64 
,115,74,64,73,32,93,32,107, 

64.32.93.32.32 

1270 DATA93,32,32,93,32,93 
1280 DATA1312,23,74,64,75,75,32, 

1 25,85,64,75,32,75,32,1 09,6 
4,73,74,64,75 

1290 DATA74,64,75,74,64,75 
1 300 DATAI 396,1 5,85,1 14,73,1 10,8 
5,73,110,112,64,110,64,114, 
64,85,64,73 

1310 DATAI 436,1 5,93,93,93,93,93, 
93,93,1 07,64,1 1 5,32,93,32,9 
3,32,93 

1320 DATA1476,15,125,32,125,93,1 

25.74.75.75.32.125.32.75.32 
,74,64,75,-1,-l 

1 3 30 WA=54 27 6:NO = l29 :TR=17 :VO = 54 
296 :SO = 54 2 72:AT=54 277 
1340 BA=53281:BR=53280:LE=0:SW=0 
:KEY = 0:BO = 3:LO = 4 4 
1350 SA=33:SU=54278:Hl=54273:H2= 
54272:FI=40:BL=32 
1360 HX=53264:LX=53248:YS=53249: 
POKE53 2 71 , 1 :POKE53277,1 

1 370 POKE53269,!: FORI=832T0896:P 
OKEI,255:NEXT:POKE2040,13 
1380 POKE53287,!:POKE53275,l 
1390 FORI=SOTOSO+28:POKEI,0:NEXT 
:POKEVO,15:RETURN 
1 400 1 = 491 52 :IFPEEK(1 + 2)=216THEN 
SYS49160:GOTOl430 
1410 READA:IFA = 256THENSYS49160 : G 
OTOl430 

1420 POKEI,A:1=1+1:GOTOl410 
1 430 FORI = l0 2 4TO10 62 :POKEI,41 : PO 
KEI + 960,41 :NEXT 


1 4 40 FORI = 552 96TO56295 :POKEI,0 :N 
EXT:RETURN 

1450 DATAI,0,216,255,255,255,40 
1460 DATA0,169,41,133,251,169,40 

1 470 DATAI 33,253,1 69,4,1 33,252,1 
33 

1 4 80 DATA2 54,1 69,1 4 7,32.*, 21 0,255, 

1 62 

1 490 DATA0,160,0, 169,4\, 1 45,253 
1500 DATA200,192,39,208,249,24,1 
65 

1510 DATA253,105,40,133^253,144, 
2 

1520 DATA230,254,232,224,23,208, 
229 

1 530 DATAI 60,0,169,4,145,251,1 69 

1 54 0 DATA25 5,1 41 ,15,212,169,128, 
1 41 

1 550 DATAI 8,212,1 73,27,212,41 ,3 
1 560 DATAI 33,1 73,1 70,10,1 68,24,1 
85 

1 570 DATA0,1 92,1 01 ,251 ,1 33,1 70,1 
85 

1580 DATAI,192,101,252,133,171,2 
4 

1 590 DATAI 85,0,1 92,1 01 ,1 70,1 33,2 

53 

1 600 DATA185,! , 1 92,1 01 ,1 71 ,1 33,2 

54 

1610 DATAI 60,0,1 77,253,201 ,41 ,20 
8 

1620 DATA18,138,145,253,169,32,1 
45 

1 630 DATA170,165,253,133,251 ,165 
,254 

1 64 0 DATAI 3 3,2 52,76,62,1 92,232,1. 
38 

1650 DATA41,3,197,173,208,189,17 
7 

1 660 DATA251,1 70,1 69,32,1 45,251 , 
224 

1670 DATA4,240,26,138,10,168,162 

1680 DATA2,56,165,251,249,0,192 
1 690 DATAI 33,251 ,1 65,252,249,1 ,1 
92 

1 700 DATAI 33,252,202,208,238,76, 
62 

1710 DATA192,169,1,160,0,153,0 
1720 DATA216,153,0,217,153,0,218 

1730 DATA1 53,0,219,200,208,241 ,9 
6,256 
1 740 : 

1750 T=32:Q=42:FORI=1T07:GOSUB18 
60 :NEXT 

1 7 60 Q=4 4: FORI = 1T06:GOSUB1 860:NE 
XT 

1 770 Q=45: FORI = 1T0 3:GOSUBl8 60 : NE 
XT 
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1 780 Q = 43:FORI=lT0 2:GOSUBl 8 60 : NE 
XT 

1 790 Q= 47 : FORI = 1TO5 
1800 GOSUBl060 

1810 IF (PEEK (PL-40) 0 32) OR (PEEK ( 
PL+4 0 ) 0 32) THENPOKEPL , BL : GO 
TO1800 
1820 NEXT 

1 830 Q = 49 :GOSUBl8 60 
1 840 Q=FI:GOSUBl 860 :MAN=PL 


1 8 50 T=41 :Q = 32 : FORI=1T050:GOSUBl 
860:NEXT:RETURN 

1 8 60 X=INT(RND(1)* 36 + 2) :Y = INT(RN 
D(1)*20+3):PL=Y*40+X+1024:1 
FPEEK (PL) OTTHENl 860 
1870 POKEPL,Q:RETURN 
1880 PRINT"{CLR}{ 11 GIU'} 

{ 11 SPAZI){RVS} ATTENDERE 
PREGO " 

1890 RETURN 


Rischio! 



Guidate l'equilibrista per 31 sofferti passi lun¬ 
go una corda tesa tra due alti muri. Dispone¬ 
te di quattro tasti per il movimento: 

'S' muove avanti di un passo 
Z’ equilibrio verso sinistra: il suo effetto è cu¬ 
mulativo, cioè più volte premete questo tasto, 

20 G=0:H=0:D=0:PD=0:S=0:B=0:BP=0 

30 W=0:NS=0:FF=0:POKE649,1 
40 PRINT"{CLR}":POKE53280,7:POKE 
53281 ,1 

50 POKE52,48:POKE56,48 :CLR:POKE5 
6334,PEEK(56334)AND254:POKE1, 
PEEK(1)AND251 

60 FORJ = OTOl11 :READX:POKE1 241 6+J 
,X :NEXT 

70 POKEl,PEEK(1)OR4 :POKE56334 ,PE 
EK(56334)ORI 

80 INPUT"{CLR}{BLU}{GIU'} 

{ 2 DES}LIVELLO DI GIOCO";L$ 

90 L=VAL(L$):IFL<10RL>10THEN8O 
100 PRINT"{CLR}";:POKE53272,(PEE 
K(53272)AND240)+12 
110 DIMA(24),B (24) ,S (24) :FT=1E6: 

G=1 024 :H = 55296:LR=-1 
120 FORJ=0TO24 
130 READA ( J) 

140 READS(J) 

1 50 READB(J) 

160 NEXT 

170 D$="{RED}ZZZ{BLU}ZRR{RED}ZZZ 
RRRZZZRRRZZZRRRZZZRRRZZZRRR 
{BLU}Z{RED}Z Z Z" 


più aumenta il peso dalla parte sinistra. 

'X' equilibrio verso destra. Funziona come il 
tasto Z'. 

Un perfetto equilibrio sarà essenziale per gui¬ 
dare l'equilibrista sano e salvo verso la propria 
meta. 


180 FORJ = 0TO5 
190 PRINTD$; 

200 NEXT 

210 PRINT"ZZ{BLU}ZZZR{RED}ZZZRRR 
ZZZRRRZZZRRRZZZRRRZZZRR{BLU} 
ZZZ{RED}ZZ" 

220 FORJ=0TOl3 
230 PRINTD$; 

240 NÈXT 

250 PRINT"{BLK}[[[[R[{RED}Z{BLK} 

[t R[l [{RED}Z Z{BLK}[[[[[{RED} 
Z{BLK}[[[{RED}Z{BLK}[[R[[ 
{RED}Z{BLK}[{[{[{BLU}Z{BLK}[ 
[{RED}Z" ; 

260 FORJ=0TO39 

270 PRINT"{PUR}Z{GRN}£"; 

280 NEXT 

290 FORJ=0TO22 

300 POKEG+968+J,29 

310 NEXT 

320 POKEH+979,2 

330 POKEH + 164,9:POKEH+204,9 :POKE 
G + 164,16 :POKEG+204,1 7 
340 FORJ = 165TO195 
350 POKEH+J,1 :POKEG+J,18:POKEH+J 
+ 40,9 :POKEG+J+40,19 
360 NEXT 
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370 TI$ = "000000" 

380 J=0 

390 D=A(J)+S*S(J)+B*B(J)+BP+W 

400 GOSUBl000 

410 IFFF=1THEN7 4 0 

420 J=J+1:IFJ<25THEN390 

430 GOSUB2000 

440 IFNS=31THEN680 

450 J=0 

460 D=A(2 4 -J)+S* S(J)+B*B(J)+BP+W 

470 GOSUBl000 

480 IFFF=1THEN740 

490 J=J+1:IFJ<25THEN460 

500 GOSUB2000 

510 IFNS=31THEN680 

520 J=0 

530 D=-A(J)+S*S(J)+B*B(J)+BP+W 

540 GOSUBl000 

550 IFFF=1THEN740 

560 J=J+1:IFJ<25TUEN530 

570 GOSUB2000 

580 IFNS=31THEN680 

590 J=0 

600 D=-A(24-J)+S*S(J)+B*B(J)+BP+ 
W 

610 GOSUBl000 

620 IFFF = 1THEN7 40 

630 J=J+1:IFJ<25THEN600 

640 GOSUB2000 

650 IFNS=31THEN680 

660 W=(L-1) * (INT(RND(1)* 7)- 3) 

670 GOTO380 

680 PRINT"{CLR)":POKE53280,6:POK 
E53281 , 9 :POKE53 2 7 2,21 
690 T=INT(TX/60) 

700 PRINT"{ 3 GIU'}{DES}ATTRAVER 
SATA COMPLETA IN";T;" SECOND 
I" 

710 IFT<FTTHENFT=T 
720 PRINT"{ 2 GIU'H 2 DESjlL MI 
GLIOR TEMPO E'";FT;" SECONDI 

II 

730 GOTO780 

740 PRINT"{CLR}":POKE53 2 80 f 4 :POK 
E53281,13:POKE53272,21 
750 IFMS<NSTHENMS=NS 
760 PRINT"{RED}{ 3 GIU'} 

{ 2 DES}SEI CADUTO DOPO";NS; 
" SALTI" 

770 PRINT"{ 2 GlU 1 }{ 2 DES}TENTA 
TIVO PIU * LUNGO = ";MS;" SALTI" 

780 PRINT"{GRN}{ 5 GIU'} 

{ 6 DES}BATTI SPAZIO PER CON 
TINUARE" 

790 GETA$:IFA$=""THEN790 
800 RESTORE:CLR: GOTO40 
1000 IFABS(D)>200-7*LTHENFF=l 
1010 POKEH + 97 9 + PD/20,1 :POKEH+979 
+D/20,2 :PD=D 
1020 RETURN 
2000 S=S*-.5 


2010 IFB<>0THENBP=BP+10*SGN(B):B 
= 0 

2020 GETA$ 

2030 IFA$="S"THENS=LR:LR=-SGN(LR 
) :NS=NS+1 :GÒSUB3000 
2040 IFA$="X"THENB=1 
2050 IFA$ = "Z"THENB=- 1 
2060 RETURN 

30 0 0 POKEG+1 63+NS, 2 2 : POKEG+1 64+N 
S,24:POKEG+203+NS,23:POKEG+ 
204+NS,2 5 

3010 POKEH + 164+NS,9 :POKEH + 204+NS 
,9 

3020 FORK=1T0400 :NEXT 
3030 POKEG + 163+NS,18 :POKEG+164 + N 
S,20 :POKEG +203+NS,19:POKEG + 
204+NS,21 

3040 IFNS=31THENPOKEG+195,16:POK 
EG + 23 5,1 7 :FORK = 1T0 50 00:NEXT 

3050 RETURN 

4000 DATAI 29,153,189,153,90,60,2 

4.24.24.24.36.36.36.36.1 02, 
255 

4010 DATA0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,255 

4020 DATA0,48,96,120,112,34,25,1 
60,160,32,80,72,72,72,108,2 
55 

4030 DATA 3,6,7,39,18,15,2,2,2,5, 
4,4,4,4,2,255 

4040 DATA0,0,128,0,0,0,128,64,32 
,128,64,128,128,64,0,255 
4050 DATA255,255,255,255,255,255 
,255,255 

4060 DATA0,60,60,126,126,60,24,2 

4.24.60.1 26,255,255,1 26,60 , 
24 

4070 DATA24,126,219,153,24,24,24 
,24 

5000 DATA3,2,25,9,12,46,16,21,50 
,22,30,49,28,38,47 
5010 DATA34,46,44,40,55,41,45,60 
,37,51,65,33,56,69,28 
5020 DATA61,72,25,66,74,23,71,75 
,21,75,74,18,79,72,17 
5030 DATA83,69,15,86,65,13,89,60 
,12,92,55,17,94,46,11 
5040 DATA96,38,10,98,30,10,99,21 
, 10 , 100 , 12 , 10 , 100 , 2,10 


Nel programmo BIORITMI per CóA. pubblicato sul 
numero M di Papersoft Commodore, pagina 21. la 
lineo 220 va modificata come segue: 

220 NEXT! = 23:MD = 0:FORK = 1 T03:C(K) = 

S IN(2 *7 r*(F(2)-f(l ))/L):MD = MD + C(K):L = 
L-h5:NEXT 

Ci scusiamo per l'errore con i nostri lettori: faremo 
il possibile affinché casi del genere non si ripetano. 
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KKpHMi 

IraBHst: 




Francie fisherman 


C 64 


pM |gjj^ 

_ 


iOo-! k 


Mentre stai pescando comodamente seduto 
nella tua barca, ti rendi conto che il cielo si 
sta rannuvolando minacciosamente e , come se 
ciò non bastasse, i pescecani ti stanno circon¬ 
dando. 

In “Frantic fischerman" (che significa “pesca¬ 
tore frenetico") ti trovi appunto nei panni del¬ 
lo sfortunato pescatore: scopo del gioco è so¬ 
pravvivere. I punti li guadagni scacciando gli 
squali a colpi di remo, oppure riparando con 
l'ombrello la barca dalle enormi gocce di piog¬ 
gia che cadono dal cielo. All'inizio del gioco hai 
tre pescatori: ne perdi uno ogni volta che un 
pescecane o una goccia di pioggia raggiungono 


100 POKE5S ,60 :CLR 
110 GOSUB8000 

120 POKE53280,0 :POKE532 81 ,0 
130 PRINTCHR$(14)"{CLR)[<5>] 

{GIU 1 } [<A>]{ 9 M [<S> J PREM 
I UN TASTO PER INIZIARE"; 

140 PRINT" 9 SPAZI }-_" 

150 PRINT" -_{ 2 SPAZI} |<A>] 

{ 6 M[<X>]{ 2 SPAZIJMIGLIOR 
PUNTEGGIO:";HS 
160 PRINT" -_{ 2 SPAZI} [<Z>] 

{ 6 Ml<S>}{ 3 SPAZI}IL TUO 
PUNTEGGIO:";SC 
170 PRINT" 9 SPAZI}--" 

180 PRINT" -{ 2 SPAZI][<A>] 

{ 6 M+T 5 *} l<R> ) { 5 M 
t<R>]{ 5 *)[<R>]*[<R>] 

{ 4 * } [<S>)" 

190 PRINT" -{ 2 SPAZI 

{ 6 SPAZIM 5 SPAZI}- 
{ 5 SPAZI }-_{ 5 SPAZI }-_ -_ 

{ 4 SPAZI}-" 

200 PRINT" -{ 2 SPAZI}^ [<A>] 

{ 4 M(<W>){ 2 SPAZI } [<U> 1 
{ 2 SPAZI }-^ [ <A> ] ^_ [ <S> ] 

[<Q>]*[<S>] [<A>]M<W>] - 

[<A>]I 2 * } (<X>J" 

210 PRINT" - { 2 SPAZI - 

{ 4 SPAZI }-_ [<A>]M<S>1 - 
- [<Z>]{ 2 *} 


la barca. In compenso, vino un nuovo pesca¬ 
tore per ogni 2000 punti. 

Il controllo avviene per mezzo di tre tasti. Per 
muoverti avanti e indietro premi "<" e 
per difenderti, invece, usa la barra spaziatri¬ 
ce. Essa ha due funzioni: se si avvicina uno 
squalo ti consente di brandire il remo, mentre 
se sta cadendo una goccia ti permette di apri¬ 
re l'ombrello. 

Puoi regolare la velocità del gioco con i quat¬ 
tro tasti-funzione, da FI (più lento) a F7 (piu 
veloce). Infine è possibile fermare momento 
neamente la partita usando SHIFT/LOCK, op 
pure sospenderla premendo "[" 


220 PRINT" { 2 SPAZI - 
{ 4 SPAZI 
- - { 4 SPAZI}-_" 

230 PRINT" [<A>] [<E>] { 2 M[<E>] 
M<E>] { 3 M[<S>] [<Z>)M<X>] 
[<Z>]M<E>] * [<X>] [<Z>]^ 

[<X>] [<Z>]*[<X>] [<Z>]^ 

[<E>] { 4 M [ <X>1" 

240 PRINT"-^{ 9 SPAZI {RVS} SPA 
ZIO{OFF}{SPAZI}PER APRIRE L' 
OMBRELLO"; 

250 PRINT"-{ 2 SPAZI}[<A>] 

{ 6 M[<X>){ 2 SPAZI}0 DIFEN 
DERTI DAGLI SQUALI" 

260 PRINT"-J 2 SPAZI} (< Z>} 

{ 6 *} [<S>] { 3 SPAZI}USA 
{rvsT<{off} E {RVS}>{OFF} PE 
R SPOSTARTI" 

270 PRINT"-{ 9 SPAZI}^ 

{ 4 SPAZI}A SINISTRA O A DES 
TRA" 

280 PRINT'M 2 SPAZI } (<A>]M<R>] 
{ 4 *} + M<S>] {<A>]M<R>] 

{ 4 *}{<R> J { 4 *}{<R>] 

{ 4 *}{<R>}{ 3 *}(<R>) 

{ 3 M [ <S>]"; 

290 PRINT'M 2 SPAZI }-_ - [<A>] 

{ 2 *] [<W>) ^ - - [<A>] 

{ 2 * } 1<W>) { 4 SPAZI }_- 
{ 4 SPAZI }-_ I<0>] 

{ 3 SPAZI}-"; 


[<S>] " 
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300 PRINT'M 2 SPAZI [<Z>] 

{ 2 *.}[<W>] [<Z>]* [<X>] 

[<Z>]* [<S>]- [<A>]{ 2 *} 
[<W>] { 2 -T -1<A>]M<S>]- 
l < A> ] [ <s> ] T!*' ; 

310 PRINT"-{ 2 SPAZI }-^ [<Q>] 

{ 2 *} [<S>] - [<A>]* [<S>] - 
[<A>]*[<X>]- -{ 2 SPAZI}- 
{ 2 -) { 2 -T I 3 -) 

{ 2 

320 PRINT’M 2 SPAZI }-_ [<Q>] 

{ 2 *}[<X>] L - - - [<Z>] 

{ 2 M[<W>] -{ 2 SPAZI)- 
{ 2 -} ( 2 -T { 3 -} 

{ 2 -}"; 

330 PRINT"[<Z>] { 2 *}[<E>]*[<E>] 
{ 4 *}(<E>) M<X>) [<Z>]* 

[<E>]{ 4 *}(<E>)*[<X>] ~ 

{ 2 SPAZlTl<Z>] M< 2 E>]* 
[<E>J [<X>] l < Z>) [<E>] [<X>] 
[<Z>)[<X>1"; 

34 0 GET A$: IFA$ = ""THEN 34 0 
330 POKE53281 , 1 4:POKE53280,6 
360 PRINT"{CLR}"CHR$(142)"{BLK}P 
UNTI:{ 19 SPAZIjPESCATORI :" 
370 PRINT" { 2 GIU'HWHT} 

{ 13 SPAZI} [<D>] {RVS} 

{ 4 SPAZI}{OFF}[<F>]" 

380 PRINT"{ 12 SPAZI}[<C>]{RVS} 

{ 9 SPAZI}{OFF} [< 3 I>) (<F>] 
{ 5 SPAZI}(<D>){RVS} 

{ 2 SPAZI}{OFF}[<F>]" 

390 PRINT"{ 4 SPAZI}[<D>]{RVS} 

{ 4 SPAZI}{OFF}(<F>) 

{ 3 SPAZI}[<C>]{RVS} 

{ 13 SPAZI}{OFF}(<V>] 

{ 2 SPAZI} [<D>] {RVS} 

{ 7 SPAZI}{OFF}[<F>]" 

400 PRINT"{ 2 SPAZI} [<D>] {RVS} 

{ 7 SPAZI}{OFF}[<F>] 

{ 5 SPAZI}[<C>]{RVS} 

{ 8 SPAZI}{OFF}[<V>) 

{ 3 SPAZI}[<C>]{RVS} 

{ 7 SPAZI}{OFF}[<V>]" 

410 PRINT" (<C>){RVS} 

{ 1 2 SPAZI}{OFF}[<V>] 

{ 4 SPAZI}[<C>]{RVS} 

{ 4 SPAZI}{OFF}[<V>] 

{ 7 SPAZI}[<C> J {RVS} 

{ 3 SPAZI}{OFF}[<V>}" 

420 PRINT"{ 5 SPAZI} (<C>) {RVS} 

{ 7 SPAZI}{OFF}[<V>]" 

430 PRINT"{ 7 SPAZI}(<C>J{RVS} 

{< 3 I>){OFF}" 

440 PRINT"{ 5 GIU’}{ 22 SPAZI} 
{RVS}£{OFF}[<W>]” 

430 PRINT"{ 21 SPAZI}{RVS}£ 

{OFF}[<W>]" 

460 PRINT"{ 20 SPAZI}{RVS}£ 

{ 2 SPAZI}{OFF}[<W>)" 

470 PRINT"{ 19 SPAZI}{RVS}£ 

{ 3 SPAZI}{OFF}(<W>]" 


480 PRINT"{ 18 SPAZI}{RVS}£ 

{ 4 SPAZI}{OFF}[<W>]" 

490 PRINT"{ 17 SPAZI}{RVS}£ 

{ 5 SPAZI} {OFF} {<W>]" 

500 PRINT" { 16 SPAZI } {RVS}jì 
{ 6 SPAZI}{OFF}[<W>}" 

510 PRINT"{ 16 SPAZI}1<Z>) 

[< 6 E>][<W>1" 

520 PRINT"{ 14 SPAZI} [<2>] {<*>} 

{RVS}{ 10 SPAZI}{OFF}E" 

530 PRINT"{RVS} {BLU} { 39 SPAZI} 
{OFF}{BLK}"; 

540 POKE2023,160:POKE2023+54272, 
6 

550 SYS49152 

560 PRINT" {HOME} {BLK} { l‘2 GIU'} 

{ 14 SPAZI}PREMI {RVS}RETURN 
{OFF}" 

570 GETA$: IFA$< >CHR$(13)THEN570 
580 SI=PEEK(829) :S2 = PEEK (830) :S3 
=PEEK(831) 

590 SC = INT(S1/16)*10+(SI AND 15)+1 
NT(S2/16)*1000+(S2AND15)* 100 

600 SC=SC+INT(S3/16)*100000+(S3A 
NOI 5)*1 0000 
610 IFSC>HSTHENHS=SC 
620 GOTO120 

1 000 DATAI 92,0,0,224,0,0,1 1 2,0 
1001 DATAO,56,0,0,28,0,0,14 
1 002 DATAO,0,7,0,0,3,128,0 
1003 DATAI,128,0,0,0,0,0,0 
1 004 DATAO,0,0,0,0,0,0,0 

1005 DATAO,0,0,0,0,0,0,0 

1006 DATAO,0,0,0,0,0,0,0 

1007 DATAO,0,0,0,0,0,0,0 

1008 DATAI,128,0,3,128,0,7,0 

1009 DATAO,14,0,0,28,0,0,56 

1010 DATAO, 0,1 1 2,0,0,224,0,0 

1011 DATA192,0,0,0,0,0,0,0 

1012 DATAO,0,0,0,0,0,0,0 

1013 DATAO,0,0,0,0,0,0,0 

1014 DATAO,0,0,0,0,0,0,0 

1015 DATAO,0,0,0,0,0,0,53 

1016 DATA7,0,0,63,224,0,255,248 

1017 DATAO,2,0,0,2,0,0,2 

1018 DATAO,0,2,0,0,2,0,0 

1019 DATA2,0,0,18,0,0,12,0 

1020 DATAO,0,0,0,0,0,0,0 

1021 DATAO,0,0,0,0,0,0,0 

1022 DATAO,0,0,0,0,0,0,0 

1023 DATAO,0,0,0,0,0,0,0 

1 024 DATA1 6,0,0,56,0,0,124,0 

1025 DATAO,254,0,0,158,0,0,206 

1026 DATAO,0,124,0,0,0,0,0 

1027 DATAO,0,0,0,0,0,0,0 

1028 DATAO,0,0,0,0,0,0,0 

1029 DATAO,0,0,0,0,0,0,0 

1030 DATAO,0,0,0,0,0,0,0 

1031 DATAO,0,0,0,0,0,0,0 

1032 DATAO,0,0,0,0,0,0,0 

1033 DATAO,0,0,0,0,0,0,0 
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1034 DATA4,0,0,12,0,0,28,0 

1035 DATAO,60,1,7,255,195,14,127 

1036 DATA255,31,255,255,127,255, 
255,56 

1 037 DATAI 27,255,3,255,195,0,0,1 

1038 DATAO,0,0,0,0,0,0,0 

1039 DATAO,0,0,0,0,0,0,183 

1040 DATAO,0,0,0,0,0,0,0 

1041 DÀTAO,0,0,0,0,0,0,0 

1 042 DATA32,0,0,48,0,0,56,0 
1 04 3 DATAI 28,60,0,1 95,255,224,25 
5,254 

1 044 DATAI 1 2,255,255,248,255,255 
,254,255 

1045 DATA254,28,195,255,192,128, 

0,0 

1046 DATAO,0,0,0,0,0,0,0 

1 047 DATAO,0,0,0,0,0,0,183 

1048 DATAO,0,0,0,0,0,0,0 

1049 DATAO,0,255,0,0,255,0,3 

1050 DATA255,192,0,85,0,0,89,0 

1051 DATAO,85,64,0,90,0,0,85 

1 052 DATAO, 0,255,0,3,255,1 92,3 
1 053 DATA245,80,3,255,1 92,3,255, 
1 92 

1054 DATA3,255,192,0,0,0,0,0 

1055 DATAO,0,0,0,0,0,0,0 
1 056 DATAO,0,0,0,0,0,0,0 
1057 DATAO,0,255,0,0,255,0,3 

1 058 DATA255,1 92,0,85,0,0,1 01 ,0 

1059 DATAI,85,0,0,165,0,0,85 

1060 DATAO,0,255,0,3,255,192,5 

1061 DATA95,192,3,255,192,3,255, 
1 92 

1062 DATA3,255,192,0,0,0,0,0 

1063 DATAO,0,0,0,0,0,0,0 

1064 DATA256 

8000 PRINTCHR$(14)"{CLR} 

{ 12 GIU '}CARICAMENTO SPRIT 
E E LINGUAGGIO MACCHINA" 
8010 PRINT"{ 11 SPAZI}{ 4 GIU’} 
ATTENDERE PREGO ..." 

8020 1=248*64 

8030 READA:IFA=256THEN8050 
8040 POKEI,A:I=1 + 1 :CK=CK+A:G0T08 
030 

8050 IFCKOl 91 2 8THENPRI NT" ERRORE 
NELLE DATA (LINEE 1000-106 
4)": STOP 

8060 1=49152:CK=0 
8070 READA:IFA=256THEN8090 
8080 POKEI,A:1=1+1:CK=CK+A:G0T08 
070 

8090 IFCKOl 39243THENPRINT"ERROR 
E NELLE DATA (J^INEE 491 52-5 
0 346)": STOP 
8100 RETURN 

49152 DATA169,3,141,64,3,169 
49158 DATA7,141,21,208,169,217 
491 64 DATA1 41 , 1 , 208,1 69,1 , 1 41 
491 70 DATA28,208,169,10,141 ,37 


49176 DATA208,169,7,141,38,208 
49182 DATA169,0,141,39,208,32 
49188 DATA60,193,169,25,141,60 
49194 DATA3,169,250,141,250,7 
49200 DATA169,209,141,5,208,169 
49206 DATA2,141,41,208,169,44 
4921 2 DATA32,238,193,32,1 56,195 
4921 8 DATAI 69,0,141 ,61,3,141 
49224 DATA62,3,141,63,3,32 
49230 DATA174,195,32,141,196,169 

49236 DATA32,141,71,3,169,0 
49242 DATAMI ,72,3,1 73,60,3 
49248 DATAMI , 67,3,32,4,1 96 
49254 DATA32,238,193,206,67,3 
49260 DATA208,245,141,4,212,32 
49266 DATAI 50,192,173,64,3,201 
49272 DATAO,208,226,169,0,133 
49278 DATA198,169,0,141,21,208 
49284 DATA169,0,141,4,212,169 
49290 DATAO,162,0,157,0,208 
49296 DATA232,224,17,208,248,96 
49302 DATA173,30,208,141,69,3 
49308 DATAI 73,65,3,201 , 1 , 240 
4931 4 DATA87,173,66,3,201 ,0 
49320 DATA240,46,173,69,3,41 
49326 DATA6, 201,6,208,11,169 
49332 DATA117,32,31,195,32,179 
49338 DATA194,76,46,193,173,2 
49344 DATA208,201,225,208,3,76 
49350 DATA37,193,206,2,208,173 
49356 DATA2,208,201,255,208,5 
49362 DATA169,0,141,16,208,96 
49368 DATAI 73,2,208,201 , 1 1 5,1 44 
49374 DATA3,76,37,193,173,69 
49380 DATA3,41,6,201,6,208 
49386 DATAI 1 ,169,117,32,31 ,195 
49392 DATA32,179,194,76,46,193 
49398 DATA238,2,208,96,173,3 
49404 DATA208,201,227,144,3,76 
49410 DATA37,193,173,69,3,41 
49416 DATA6,201,6,208,11,169 
49422 DATA80,32,31,195,32,202 
49428 DATAI 94,76,46,193,173,69 
49434 DATA3,41,3,201,3,240 
49440 DATA4,238,3,208,96,32 
49446 DATA151,194,206,64,3,32 
49452 DATAI 56,195,162,30,32,106 
49458 DATAI 95,202,208,250,1 65,1 6 
2 

49464 DATA201,192,144,38,169,0 
49470 DATAMI , 2,208,1 69,229,1 41 
49476 DATA3,208,169,253,141,249 
49482 DATA7,169,0,141,40,208 
49488 DATAMI , 1 6,208,1 41 ,65,3 

49494 DATAMI ,66,3,1 69,0,1 41 
49500 DATA27,208,173,30,208,96 
49506 DATA201,128,144,44,169,80 
4951 2 DATAMI , 2,208,1 69,229,1 41 
49518 DATA3,208,169,252,141,249 
49524 DATA7,169,0,141,40,208 
49530 DATAI 69,2,1 41 ,1 6,208,1 69 
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4 9 5 36 DATAu, MI ,65,3,169,1 
49542 DATAMI ,66,3,169,0,1 41 
49548 DATA27,208,173,30,208,96 
49554 DATA201,64,144,44,169,139 
49560 DATAMI , 2,208,1 69,1 00,1 41 
49566 DATA3,208,169,251,141,249 
49572 DATA7,169,6,141,40,208 
49578 DATA169,0,141,16,208,169 
49584 DATAI,141,65,3,169,0 
49590 DATAMI ,66,3,1 69,2,1 41 
49596 DATA27,208,173,30,208,96 
49602 DATAI 69,21 8,141 ,2,208,169 
49608 DATA100,141,3,208,169,251 
4961 4 DATAMI , 249,7,1 69,6,1 41 
49620 DATA40,208,169,0,141,16 
49626 DATA208,!69,1,141,65,3 
49632 DATA169,!,141,66,3,169 
49638 DATA2,141,27,208,173,30 
49644 DATA208,96,201,44,208,17 
49650 DATA169,132,141,0,208,169 
49656 DATA255,141,248,7,32,227 
49662 DATA194,32,112,195,96,201 
49668 DATA46,208,17,169,212,1 41 
49674 DATAO,208,169,254,141,248 
49680 DATA7,32,227,194,32,112 
49686 DATA195,96,201,32,208,113 
49692 DATAI 73,68,3,201 ,0,208 
49698 DATAll5,173,70,3,201,0 
49704 DATA208,108,173,65,3,201 
49710 DATAO,240,38,169,2,141 
49716 DATA41,208,169,209,141,5 
49722 DATA208,169,250,141,250,7 
49728 DATA173,0,208,201,132,208 
49734 DATA8,169,138,141,4,208 
49740 DATA76,132,194,169,218,141 

49746 DATA4,208,76,132,194,169 
49752 DATAO,!41,41,208,173,0 
49758 DATA208,201,132,208,18,169 

49764 DATA127,141,4,208,169,230 
49770 DATAMI , 5,208,1 69,249,1 41 
49776 DATA250,7,76,132,194,169 
49782 DATA232,141,4,208,169,230 
49788 DATAMI ,5,208,1 69,248,1 4! 
49794 DATA250,7,32,1,195,169 
49800 DATA200,141,68,3,96,201 
49806 DATA95,208,5,169,0,141 
49812 DATA64,3,96,32,141,196 
49818 DATA169,33,141,4,212,162 
49824 DATA255,142,1,212,142,37 
49830 DATA208,32,106,195,202,208 

49836 DATA244,169,10,141,37,208 

49842 DATA96,32,141,196,169,129 
49848 DATAMI , 4,21 2,1 62,255,1 42 
49854 DATAI,212,142,40,208,32 
49860 DATA106,195,202,208,244,96 

4986b UATA32,141 ,1 96,169,129,141 

49872 DATA4,212,162,0,142,1 


49878 ÙATA212,142,40,208,37,106 
4 9884 DATAI 95,232,224,50,208,242 

49890 DATA96,169,33,141,4,212 
49896 DATAI 6 2,1 5,1 42,1 , 21 2,32 
49902 DATA106,195,32,106,195,202 

49908 DATA2 24,5,208,24 2*, 169,0 
4991 4 DATAMI ,4,21 2,32,106,195 
49920 DATA96,169,33,14\,4,212 
49926 DATA162,5,142,1,212,32 
49932 DATAI 06,195,32,106,195,232 

49938 DATA224,20,208,242,169,0 
49944 DATAMI ,4,21 2,32,1 06,1 95 
49950 DATA96,248,24,109,61,3 
49956 DATAMI ,61 ,3,169,0,109 
49962 DATA62,3,141,62,3,169 
49968 DATAO,109,63,3,141,63 
49974 DATA3,216,32,174,195,56 
49980 DATAI 73,62,3,237,71 ,3 
49986 DATAMI ,69,3,1 73,63,3 
49992 DATA237,72,3,13,69,3 
49998 DATA144,25,169,32,248,24 
50004 DATAI 09,71,3,141,71 ,3 
50010 DATA169,0,109,72,3,141 
5001 6 DATA72,3,216,238,64,3 
50022 DATA32,156,195,96,160,0 
50028 DATA200,208,253,96,169,0 
50034 DATAMI ,41 , 208,1 73,0,208 
50040 DATA201,132,208,16,169,248 

50046 DATAMI , 250,7,1 69,1 27,1 41 
50052 DATA4,208,169,222,141 ,5 
50058 DATA208,96,169,249,141 ,250 

50064 DATA7,169,232,141,4,208 
50070 DATA169,222,141,5,208,96 
50076 DATAI 62,0,160,35,24,32 
50082 DATA240,255,173,64,3,24 
50088 DATAI 05,48,32,21 0,255,96 
50094 DATA162,0,160,6,32,240 
50100 DATA255,173,63,3,41,240 
50106 DATA74,74,74,74,24,105 
50112 DATA48,32,210,255,173,63 
50118 DATA3,41,15,24,105,48 
50124 DATA32,210,255,173,62,3 
50130 DATA41,240,74,74,74,74 
50136 DATA24,105,48,32,210,255 
50142 DATA173,62,3,41,15,24 
501 48 DATAI 05,48,32,210,255,1 73 
50154 DATA61,3,41,240,74,74 
50160 DATA74,74,24,105,48,32 

50166 DATA210,255,173,61,3,41 
501 72 DATAI 5,24,1 05,48,32,21 0 
501 78 DATA255,96,32,1 6,196,72 
50184 DATA32,71,196,32,125,196 
501 90 DATA104,96,32,228,255,201 
50196 DATAO,208,3,76,70,196 
50202 DATA201,133,208,7,169,25 
50208 DATAMI ,60,3,1 69,1 33,201 
5021 4 DATAI 34,208,7,169,18,141 
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50220 DATA60,3,169,134,201 ,135 
50226 DATA208,7,169,13,141,60 
50232 DATA3,169,135,201,136,208 
50238 DATA7,169,9,141 ,60,3 
50244 DATAI 69,1 36,96,173,68,3 
50250 DATA240,5,206,68,3,240 
50256 DATA21,173,70,3,201,0 
50262 DATA240,3,206,70,3,1 62 
50268 DATA90,202,208,253,1 69,0 
50274 DATA141,4,212,96,173,4 
50280 DATA208,201 ,0,240,5,169 


50286 DATAO,141,4,208,32,112 
50292 DATAI 95,1 69,255,1 41 ,70,3 
50298 DATA76,81 ,1 96,173,141 ,2 
50304 DATA41,1,201,1,208,6 
5031 0 DATA32,16,196,76,1 25,196 
50316 DATA96,162,0,169/0,157 
50322 DATAO,212,232,224,25,208 
50328 DATA248,169,15,141,24,212 
50334 DATAI 69,16,141 ,5,212,169 
50340 DATA240,141,6,212,169,100 
50346 DATAI 41 ,0,212,96,256 


C64 

Subacqueo 


Immergersi da una barca e scendere fin sul fon 
do del mare per raccogliere il maggior numeto 
possibile di ostriche: ecco lo scopo di questo di 
vertente gioco per C64. Occorre premere "/" 
per scendere e per risalire, guardandosi 
Meritamente dall'avvicinarsi degli squali ed al 


20 PRINT" {CLR} *' : POKE53280,1 : POKE 
53281,3:POKE53265,PEEK(53265) 
AND 2 39 

30 POKE56334,PEEK(56334)AND254 :P 
OKEl ,PEEK(1 )AND 2 51 

40 FORJ= s 0TO79 :X=PEEK ( 53632+J) : PO 
KE14720+J,X:NEXT 

50 POKE1,PEEK(1)OR4 :POKE56334 ,PE 
EK ( 56334)OR 1 

6 0 POKE52,48:POKE56,48:POKE53272 
(PEEK(53272)AND240)+14 

70 POKE649,1 :POKE65U,128 

80 FORJ=0TO7:POKEl4368+J,255:NEX 
T 

90 B’ORJ = 0TO7 : POKEl 4 376 + J , 0 : NEXT 

100 FORJ=l 2288T01 2734 : READ X:POK 
EJ,X :NEXT 

110 FORJ = 1 4 3 34TO1 4365 :READX:POKE 
J,X:NEXT 


120 G=1024:H=55296:V=53248:VC=V+ 
30:VS=V+21:VX=V+16:U=1:Z=0:G 
B=G+170:SY=63:BY=256 
130 FORJ=OTO199 :POKEG+J,4 :POKEH + 
J,6:NEXT 

140 FORJ = 200TO919 :POKEG+J,5 :NEXT 


tri animali marmi che infestano queste acque 
insidiose. Una volta raccolta un'ostrica, il su 
bacqueo ritornerà automaticamente alla super- 
pcie pronto per immergersi nuovamente... oc¬ 
chio alle embolie! 


150 FORJ = 920TO959:POKEG+J,3 :POKE 
H+J,10 :NEXT 

160 FORJ = 960TO999 :POKEG+J,4 :POKE 
H+J,7 :NEXT 

1 70 FORJ = 1 TO5 : POKEG4 920+2fJ , 1 : PO 
KEH+920+2 t J, 0 :NEXT 
180 FORJ-OTO5 :POKE20 4 0+J,192+J:N 
EXT 

1 9 0 FORJ = OTO2 :POKE2045+J,19 6+J:N 

EXT 

200 POKEV+39,1 :POKEV+40,0 :POKEV+ 
41 ,6 :POKEV+4 2,2 :POKEV + 4 3,1 :P 
OKEV+44,4 

210 POKEV+45,0:POKEV+46,0 
220 POKEV,72 :POKEV+1 ,74 :POKEV+29 
,5 :POKEGB,0 

2 30 XP= 255 :ZP = 2:YP-RND( 1 )*60 + 106 

: POKEV + 2,XP:POKEV+3,YP 
24 0 POKEV + 4,RND(1 )* 232 +24 :POKEV + 
5,RND(1 )*80 + 1 26 :POKEV + 2 3,4:S 
F = 600 

250 FM=255 : FW=- 1 : POKF.V+6 , FM : POKE 
V+7,82 

260 Fi= 344 :POKEV+8, 8 8 :POKEV + 9,RN 
D (1)*45+122 

27 0 F2 = 344 :POKEV+10,88:POKEV+11 , 
RND(1)*45+122 
280 POKEVX, 50 :POKEVS,63 
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290 TI$=”000000":POKE53265,PEEK( 
53265)ORI 6 

300 GOSUBl 500 :B=PEEK(V+31) :IFTI< 
TPTHENPOKE53280,15:GOTO330 
310 TP=Z:POKE53280, U 
320 GET A$:IFA$<>""THENA=ASC( A$) 

330 IFD< 90THENFS = Z:FC = Z 
340 IFFS=UTHENA$=";":A=59 
350 IFA=47ANDD=ZTHENG0SUB1200 
360 IFA=47ANUD>ZANDD<222THEND=D+ 
8 :POKEV+13,D:POKEV+15, D :POKE 
VS,(PEEK(VS)ANDSY)+64 
370 IFD< 94ANDD< >ZTHEND = Z:POKEVS, 
PEEK(VS)ANOl27 :POKEGB,Z:POKE 
VX,PEEK(VX)ANDSY 
380 IFA=59ANDD>93ANDD<230THEND=D 
- 8 :POKEV+13,D:POKEV+15,D:POK 
EVS,(PEEK(VS)ANDSY)+128 
390 IF A=590RD=Z0RRND(U)<.60RTP> 
ZTHEN430 

400 X=X+8:IFX>336THENX=24 
41 0 I FX> 255THENPOKEVX , (PEEK (VX) A 
NDSY)+192 :POKEV+12,X-BY:POKE 
V+l4,X-BY:GOTO430 
420 POKEVX,PEEK(VX)ANDSY:POKEV+1 
2,X:POKEV+14,X 
430 GOSUBl500 
440 IFCF=ZTHEN480 
450 IFCC=320RCC=16THENFS=U:TP=TI 
+ 600 

460 IFCC=80RCC=4THEN920 
470 IFCC=2THENFS=U:TP=TI+1800 
480 IFD< 2 22THEN520 
490 BG=G+917+X/8 

500 IFPEEK(BG)=UTHENPOKEBG,2 :FC = 
U:TP=TI+600 

51 0 IFPEEK(BG)=3THENPOKEBG+H-G,3 
:POKEBG,4 :FS=U:P=P+U 
520 IFTI > 1 8000THENFT=U : GOTO92 0 
530 POKEG,ASC(MID$(TI$,4,U)):POK 
EG+U, 5 

540 POKEG+2,ASC(MID$(TI$,5,U) ) :P 
OKEG+3,ASC(RIGHT$(TI$,U)) 

550 P$=STR$(P):POKEG+39,ASC(RIGH 
T$(P$,U)) 

560 IFLEN(P$ ) = 2THENPOKEG+38,ASC( 
LEFT$(P$ , 1 ) ) 

570 IFP=35THEN920 

580 XP=XP-2 :IFXP<ZANDZP=2THENXP= 
255:ZP=Z 

590 IFXP<ZANDZP = ZTHENXP=255 :ZP = 2 

600 YP=YP+2:IFYP>180THENYP=126 
610 POKEV+2,XP:POKEVX,(PEEK(VX)A 
ND253)+ZP:POKEV+3,YP 
620 GOSUBl500 
630 IFCF=ZTHEN650 
640 IFCC=2THENFS=U:TP=T1+1800 
650 IFTI<SFTHEN700 
660 IFTI>SFANDTI<SF+2400THENPOKE 
VS,PEEK(VS)AND251:GOTO730 
670 IFTI<1800+SFTHEN7 30 


680 POKEV+4,RND(U)*232 + 24 :POKEV+ 
5,RND (U) * 80+126 :POKEVS,(PEEK 
(VS)AND251)+4 
690 SF=800+TI 

700 GOSUBl500 
710 IFCF=ZTHEN7 30 
720 IFCC=4THEN920 

730 FM=FM+FW:IFFM=-UTHENFM=Z:FW= 
U 

740 IFFM>255THENFM = 255:FW = -U 
750 POKEV+6,FM 
760 GOSUBl500 
770 IFCF=ZTHEN790 
780 IFCC=8THEN920 
7 90 FI=Fl-10:IFFl<1OTHENFl=344 
800 IFFl>255THENPOKEVX,(PEEK(VX) 
AND239)+16:POKEV+8,Fl-BY:GOT 
0820 

810 POKEVX,(PEEK(VX)AND239):POKE 
V+8,FI 

820 GOSUBl500 
830 IFCF = ZTHEN850 
840 IFCC=16THENFS=U:TP=TI+600 
850 F2=F2-20:IFF2<10THENF2=344 
860 IFF2>255THENPOKEVX,(PEEK(VX) 
AND223)+32 :POKEV+10,F2-BY:GO 
TO880 

870 POKEVX,(PEEK(VX)AND223):POKE 
V+l0,F2 
880 GOSUBl500 
890 IFCF=ZTHEN910 
900 IFCC=32THENFS=U:TP=TI+600 
910 GOTO300 
920 POKE53280,2 
930 FORJ=lT04000:NEXT 

940 PRINT"{CLR}{RED}":POKEVS,0:P 
OKE53272,21 

950 IFP>1OTHENPRINT"{ 2 GIU’) 

{DES}E 1 STATA UNA BUONA GIOR 
NATA DI LAVORO" 

960 IFCC=8THENPRINT"{DES}LA MEDU 
SA TI HA PIZZICATO" 

970 IFCC=4THENPRINT"{DES)IL SERP 
ENTE MARINO TI HA PRESO" 

980 IFFC=1THENPRINT"{DES}FERITO 
GRAVEMENTE DA UN'OSTRICA GIG 
ANTE" 

990 IFFT=1THENPRINT"{DES}E'ORA D 
I RIPOSARSI!" 

1000 PRINT"{ 3 GIU' }{DES}HAI PES 
CATO";P;" OSTRICHE PERLIFER 
E" 

1010 GET A$: IFA$ = ""THEN 1010 
1015 IFA $ < >" "THEN1010 
1020 TP=0:A=0:FS=0:FT=0:P=0:FC=0 
: D = 0 

1030 PRINT"{CLR}":POKE53280,1 : PO 
KE53281,3 

1040 POKE53272,(PEEK(53272)AND24 
0) +1 4 

1050 POKE53265,PEEK(53265)AND235 
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1060 GOTO130 

1200 D=94:POKEGB,4:X=128:POKEV+1 
2, X :POKEV+14,X 

1210 POKEV+13,D:POKEV+15,D:POKEV 
S,PEEK(VS)+64 

1220 RETURN 

1500 C=PEEK(VC):CC=(C-PC)ANDSY:P 
C=CANDSY 

1510 CF=Z:IFC>SYTHENCF=U 

1.520 RETURN 

2000 DATA8,0,0,8,0,0,28,0,0,8,0, 

0 , 8 , 0 , 0 , 8 , 0 , 0 , 8 , 0 , 0 , 8 , 0,0 

2010 DATA8,192,0,8,128,0,9,255,0 
,9,85,0,9,255,3,255,255,255 
,127,255,255 

2020 DATA63,255,254,31,255,253,1 
5,255,253,0,0,0,0,0,0,0,0,0 
,0 

2030 DATA4,124,48,56,254,8,65,24 
7,4,65,242,2,65,255,2,33,25 
5,4,31,254,248 

2040 DATA195,85,0, 1 33,82,240,74 , 
81 ,1 2,50,1 44,1 30,4,1 36,66,4 
,136,34 

2050 DATA25,4,17,33,4,8,65,2,8,6 
6,66,8,34,132,34,17,40,72,7 
2,32,48,48,0,0,0 

2060 DATAO,0,0,33,128,0,34,64,0, 
228,32,0,24,16,12,0,8,18,0, 
4,33,0,2,65 

2070 DATAO,1,2,17,0,4,32,128,56, 
127,192,64,68,96,64,85,112, 
32,127,248,32 

2080 DATAI 27,207,192,117,199,128 
,53,128,0,31,0,0,12,0,0,0,0 
, 0,0 


2090 DATAO, 63,0,0,255,0,1 ,21 5,0, 
3,215,0,3,215,0,3,21 4,0,3,2 
14,0,7,214,0 

2100 DATA7,255,0,7,255,0,5,37,0, 
5, 37,0,8,1 68,1 28,8,1 68,1 28, 
17,69,0 

2110 DATAI 7,69,0,8,168,128,8,168 
,128,5,20,64,5,20,64,24,168 
,48,0 

2120 DATAO,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,2,0,0,6,1,0,14,3,6 
3,254,7,103,255,135 

2130 DATA247,255,254,255,255,254 
,3,255,206,63,64,199,0,96,1 
35,0,112,7 

2140 DATAO,120,3,0,28,1,0,0,0,0, 

0 , 0 , 0 , 0 , 0,0 

2150 DATA48,0,0,48,0,0,48,0,0,20 
8 , 0 , 0 , 208 , 0 , 0 , 208 , 0 , 0 , 80 , 0 , 
0,120,0,0,24,0,0,24 

2160 DATAO,0,63,0,0,41,0,0,45,0, 
0,45,0,0,33,0,0,1 6,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2170 DATAO,0,0,0,48,0,0,48,0,0,1 
6,0,0,56,0,0,92,0,0,1 54,0,0 
,154,0,0,154,0,0 

2180 DATA90,0,0,40,0,0,68,0,0,36 
,0,0,52,0,0,54,0,0,54,0,0,6 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

2190 DATAO,0,0,0,0,0,0,0,0 

220 0 DATAI 99,1 99,231 ,1 99,1 31,255 
,255,16,24,12,198,99,51,31, 

1 5 

2210 DATA56,1 24,62,63,31 ,31 , 1 5,1 
5,24,60,1 89,21 9,1 02,60,60,2 
4 


■IH C64 

Caos! 


Il giocatore viene rappresentato lazialmente dal 
simbolo nell'angolo superiore sinistro dello 
schermo: l'unico di colore nero. "Saltando" so¬ 
pra gli altri simboli in movimento mano a ma¬ 
no che questi si trovano in vicinanza, si deve 
raggiungere il simbolo nell'angolo inferiore de¬ 
stro dello schermo. Spostandosi su altri simbo¬ 
li, questi assumeranno il colore nero per ricor¬ 
dare al giocatore su quale simbolo esso si tro¬ 


va. I tasti da usare sono i seguenti: 

U salta verso l'alto 
H salta verso sinistra 
J salta verso destra 
N salta verso il basso 

Sono selezionabili IO diverse velocità di gioco, 
in modo da poter gradualmente aumentare il 
livello di abilità richiesta per arrivare in fondo 
a questa sorta di labirinto dinamico. 
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20 L=0:M=0: :P = 0:N = 0:G=1 024 :H = 552 
96:B=12288 

30 PRINT"{CLR}":POKE 53280,2:POK 
E 53281,2:POKE 52,48:POKE 56, 
48 

40 INPUT "{ 3 GIU'}{ 3 DES}(WHT} 
VELOCITA' (1-10)";A$ 

50 TF=VAL( A$ ) : IF TF<1 OR TF>10 T 
HEN 30 

60 PRINT"{CLR}":POKE 649,0:FOR J 
=0 TO 5: READC%(J):NEXT 
70 S=1:F=121:X=1:GOSUBl000 
80 S=126:F=251:X=40:GOGUB1000 
90 S=2:F=252:X=0:GOSUB1000 
100 S=4:F=39:X=216:GOSUBl000 
110 S=44:F=64:X=218:GOSUBl000 
120 S=69:F=89:X=217:GOSUBl000 
130 S=94:F=124:X=219:GOSUBl000 
140 S=129:F=149:X=218:GOSUBl000 
150 S=154:F=194:X=216:GOSUBl000 
160 S=199:F=209:X=219:GOSUBl000 
170 S=214:F=254:X=217:GOSUBl000 
180 FORJ=0 TO 250 STEP 5: READ A 
,M:POKEB+J,A:POKE B+J+3,M:NE 
XT 

190 FOR J=12546 TO 12732:READ X: 
POKEJ,X :NEXT 

200 RESTORE:FOR J = 0 TO 5 : READ X: 
NEXT 

210 POKE251,0 :POKE252,48 :POKE253 
,0 

220 FOR J=1 TO 25 
230 GOSUB 2000 

240 READ X,Y:IF J>8 THEN X=X+512 

250 IF J>13 THEN X=X-256 

260 IF J>18 THEN X=X+512 

270 IF J=1 THEN P=C 

280 POKE H+X,C:POKE G+X,S 

290 FOR K = X+1 TO X+Y 

300 POKE H+K,2 :POKE G+K,S 

310 NEXT:NEXT 

320 FOR J=1 TO 26 

330 GOSUB2000 

340 READ X,Y: X=X+512 

350 IF J > 5 THEN X=X-512 

360 IF J>14 THEN X=X+768 

370 IF J>17 THEN X=X-512 

380 POKE H+X,C:POKE G+X,S 

390 FOR K=X+40 TO X+Y*40 STEP 40 

400 POKE H + K,2 :POKE G+K,S 

410 NEXT:NEXT 

420 FOR J=1 TO 50 

430 SYS 12546 

440 GOSUB 2500 

450 NEXT 

460 L=H + 9:N=PEEK(L)AND7:POKE L,0 

470 POKE649,1 : TI$ = "000000":A$ = "" 

480 GET A$: IF A$="" AND TI<60/T 
F THEN 480 


490 POKE 649,0: IF A$="U" AND L> 
H+39 THENM=L-40 
500 IF A$="H" THEN M=L-1 
510 IF A$="J" THEN M=L+1 
520 IF A$="N" AND IXM+960 THEN M 
=L+40 

530 N = PEEK(M) AND7 
540 IF N>2 THENPOKE L,P:POKE M,0 
:L=M:P=N 

550 IF L=H+989 THEN 700 
560 SYS 12546 

570 D = -1 :GOSUB 2700:IF D = 0 THEN 
470 

580 D=1: GOSUB 2700:IF D=0 THEN 
470 

590 IF L>H+39 THEN D=-40:GOSUB 2 
700: IF D=0 THEN 470 
600 IF LCH+960 THEN D=40:GOSUB 2 
700 

610 GOTO 470 

700 PRINT"{CLR}{ 6 GIU'} 

{ 3 DES}{WHT}CI SEI ! ! !" 

710 POKE 649,1 

720 GET A$: IF A$<>" " THEN 720 

730 RESTORE: GOTO 30 

1000 FOR J=S TO F STEP 5 

1010 POKE B+J,X 

1020 NEXT:RETURN 

2000 S =C%(INT(RND(1)* 6) ) 

2010 C = INT(RND(1)* 5)+3 
2020 RETURN 

2500 FOR K=1 TO 200:NEXT 
2510 RETURN 
2700 X=PEEK(L+D)AND7 
2710 IF X=0 THEN L=L+D:D=0 
2720 RETURN 

3000 DATA 81,87,90,83,65,42 
4000 DATA 7,6,228,4,24,6,208,2,5 
7,5,183,7,95,3,175,6,19,5,2 
29,4,66,4,116,4,96,4 
4010 DATA 37,4,254,2,119,5,169,3 
,1 51 ,2,1 ,4,21 5,6,46,4,201 ,6 
,53,5,167,4 

4020 DATA 101,2,61,4,228,6,115,7 
,160,5,156,7,14,5,250,5,23, 
3,225,2,31,3,212,7 
4030 DATA 182,5,47,5,51,4,0,5,13 
4,2,45,3,2,2,241,7,48,5 
4040 DATA 207,6,53,7,191,6,118,3 
,5,7,15,5 

5000 DATA 169,254,141,1,49,172,1 
,49,177,251 ,133,254,136,136 
,177,251,41,7,240,36 
5010 DATA 170,136,177,251,141,0, 
49,136,177,251,24,109,0,49, 
144,2,230,254,202,208 
5020 DATA 245,168,177,253,41,7,1 
41,255,48,169,2,145,253,76, 
65,49,136,136,177,251 
5030 DATA 76,43,49,172,1,49,177, 
2 51 , 1 33,2 54,1 36,1 77,251 ,1 41 
,0,49,1 36,1 77,251,41 
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5040 DATA 8,208,19,177,251,41,7, 
205,0,49,208,20,177,251,24, 
105,8,145,251,76,114 
5050 DATA 49,177,251,41,7,208,4, 
169,0,145,251,177,251,41,8, 
208,10,177,251,24,105 
5060 DATAI,145,251,76,137,49,177 
,25'! ,56,233,1 ,145,251 ,177,2 
51 , 41 ,7,240, 39,1 70 


5070 DATAI 36,1 77,251 ,1 41 ,0,49,1 3 
6,177,251,24,109,0,49,144,2 
,230,254,202,208 

5080 DATA245,168,173,255,48,145, 
253,173,1,49,56,233,5,176,1 
,96,76 

5090 DATA4,49,136,136,177,251,76 
,164,49 


Hires graph 



i 


Ecco un programma che sfrutta appieno le ca¬ 
ratteristiche grafiche del C64, permettendo di 
creare complessi disegni in alta risoluzione. 
Una volta mandato in esecuzione il program¬ 
ma, dopo un'attesa di qualche secondo ver¬ 
ranno visualizzati i quattro tasti funzione nel¬ 
la parte inferiore destra dello schermo. Questi 
sono i comandi disponibili: 

* KEYS ON: abilita la visualizzazione dei tasti 
funzione. Si attiva premendo FI. 

KEYS OFF: disabilita la visualizzazione dei 
tasti funzione. Si attiva premendo F2. 

* FRASE: è l'opposto della funzione draw. Ren¬ 
de i punti sullo schermo dello stesso colore del 
fondo. Si abilita premendo F3. Quando il mo¬ 
do erose è abilitato, viene visualizzato un punto 
lampeggiante che indica la posizione del cur¬ 
sore. 

* DRAW: questa funzione viene abilitata quan¬ 
do si esegue per la prima volta il programma. 
Per ritornare al modo draw dal modo erose è 
sufficiente premere F4. 

* SQUARE: questa funzione permette di crea¬ 
re automaticamente un rettangolo di qualun¬ 


1 datao,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,1 5,255,240,12, 
62,240,13,252 

2 DATA240,1 2,1 26,240,1 41 ,254,241 
,141,252,113,143,255,241,128,0 
, 1 , 1 40,62,1 1 3 


que dimensione (compatibilmente con le dimen¬ 
sioni dello schermo) semplicemente specifican¬ 
do due dei suoi vertici opposti. Ecco come fun¬ 
ziona: entrate in modo square con la pressio¬ 
ne di F5; quindi portatevi con il cursore su una 
posizione in cui volete far apparire un vertice 
del rettangolo e premete C. Portatevi ora nel¬ 
la posizione in cui desiderate far apparire il ver¬ 
tice opposto al precedente e premete ancora 
C. Il rettangolo verrà disegnato 
automaticamente. 

CLEAR: questa funzione cancella l'intero 
schermo. Dal momento che il programma è 
scritto interamente in BASIC , questa operazione 
richiederà parecchi secondi. Si accede a que¬ 
sta funzione con Fó. 

* LINE: permette di tracciare una linea tra due 
punti diversi. La procedura da seguirsi è: en¬ 
trate in modo line premendo F7, quindi pone¬ 
tevi con il cursore nel punto dal quale deside¬ 
rate parta la linea e premete C. Posizionatevi 
quindi sul punto in cui volete che la linea ab¬ 
bia termine e premete ancora C. La linea ver¬ 
rà tracciata automaticamente. 


3 DATAI 57,253,185,188,1 27,125,25 
3,254,255,253,252,63,255,255,2 
55,0,0,0,0,0,0 

4 DATAO,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,15,255,240,12,60,240,13, 
251 ,112,12,126 
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5 DATA240,141,251,113,141,252,24 
1,143,255,241,128,0,1,140,60,2 
41,157,250,249 

6 DATA188,!12,125,253,254,255,25 
3,254,255,255,255,255,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0,0 

7 DATAO,0,0,0,0,0,0,0,0,0,0,15,2 
55,240,12,60,48,13,253,240,12, 
124,112,141,255 

8 DATAI 77,1 41 ,2 52,1 13,143,255,24' 
1,128,0,1,140,62,113,157,253,2 
49,188,124,125 

9 DATA253,253,191,253,254,127,25 
5,255,255,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0,0 

10 DATAO,0,0,0,0,15,255,240,12,6 
0,48,13,255,176,12,127,1 12,14 
1,254,241,141,254 

11 DATA241 , 1 43,255,241 , 1 28,0,1 ,1 
40,62,113,157,253,185,188,126 
,125,253,253,191 

12 DATA253,254,127,255,255,255,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

13 DATAO,0,173,88,1 46,169,81 ,90, 

204.137.86.168.137.82.172.1 52 
,146,0,0,0,0,0 

14 DATAO, 1 73,88,1 55,1 69,81 ,82,20 
4,137,91 ,168,137,82,172,1 52,1 
46,0,0,0,0,0,0 

1 5 DATA0,0,0,0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,247,24,239 

,132,165,8,199 

16 DATA60,204,132,164,40,244,165 
,207,0,0,0,0,0,0,231,25,16,14 
8,165,16,151,61 

17 DATA80,148,165,80,228,164,160 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

18 DATAO, 0,0,0,0,0,1 00,1 64,206,1 

38.170.168.74.174.204.44.1 70, 
168,198,74,174 

19 DATAO,0,0,0,0,0,1 16,57,1 56,13 
2,34,82,132,51,220,132,34,84, 
119,186,82,0,0 

20 DATAO,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0,0,0,0,13 
0,68,240,130,100 

21 DATAI 28,130,84,224,130,76,128 
,242,68,240,0,0,0,0,0,0,117,1 
99,71,133,40,68 

22 DATAI 33,200,70,133,40,68,117, 
39,119,0,0,0,0 

2 5 REM 

26 REM *** TRASFERIMENTO DATA 
* * * 

27 REM 

30 F0RR=1 63 8 4T016895 : READA:POKER 
,A :NEXT 

31 REM 

32 REM *** VISUALIZZAZIONE SPRI 
TE ** * 


3 3 REM 

35 POKE53264,1 5 

40 POKE53271,255 :POKE53277,255 
50 FORR=7TOOSTEP-1:POKE 18424+R, 
R:NEXT:POKE53269,255 
60 DATA36,102,36,136,36,170/36,2 
05,231,102,231,136,231,170/23 
1 ,205 

80 FORR = 53 2 4 8T053 2 63 : READA:POKER 
,A:NEXT 

90 F0RR=53 2 87T053 2 94: POKER,14 : NE 
XT 

95 REM 

96 REM * * * INS. SCHERMO ALTA RIS. 

* * * 

97 REM 

1 00 PRINT"{CLR}";:X = 160:Y=100 
110 POKE53272,29 :POKE53265,59 : PO 
KE56 57 6,1 98 

120 FORR=l 74 08TO1 84 07 : POKER,230: 
NEXT 

130 FORR = 24 576T0 32767: POKER,0 : NE 
XT 

135 REM 

136 REM * *‘ROUTINE TASTI FUNZION 
E*** 

137 REM 

140 GETA$:IFA$=""THENl40 

141 IFA$ = "{SU}"THEN1030 

142 IFA$ = "{GIU'}"TUEN1130 

143 IFA$="{SIN}"THENl230 

144 IFA$="{DES}"THENl330 

145 IFA$ = "S"THEN14 30 

146 IFA$="L"THEN1530 

150 IFASC(A$)>140ORASC(A$)<133TH 
ENI 40 

151 F=ASC(A$)-132 

152 ON F GOTO230,430,630,830,330 
,530,730,930,1030,1130,1230, 
1330 

154 F=ASC(A$)-132 

200 REM 

201 REM **‘VISUALIZZAZIONE TASTI 

* * * 

202 REM 

230 POKE53269,25 5 
240 GOTO140 

300 REM 

310 REM * * *NON VISUALIZZAZIONE T 
ASTI*** 

320 REM 

330 POKE53269,0 
340 GOTO140 
400 REM 

410 REM *** CURSORE PER DISEGNAR 

E* * * 

4 20 REM 
430 M= 1 

440 GOTO140 
500 REM 

510 REM * * ^CURSORE PER CANCELLAR 
E *** 
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520 REM 
530 M = 0 
540 GOTO!40 
60 0 REM 

610 REM *** RETTANGOLI *** 

620 REM 

630 IFS=!THEN 6 50 

64 0 S = 1 :X1= X :Y1=Y:GOSUB20 0 0 : GOTO 
1 40 

650 GOSUB2000:S=0:X2=X:Y2=Y:Y=Yl 

655 FORX = XlTOX2STEP(XI>X20R1 ) :GO 
SUB£000:NEXT 

660 FORY=YlTOY2STEP(Yl>Y20Rl):GO 
SUB2000:NEXT 
665 Y=Y- (Yl>Y 20R1) 

670 FORX=X2TOX1STEP(X2>XlORI ) :GO 
SUB2000:NEXT 
675 Y=Y +(Yl>Y20Rl ) 

680 FORY=Y2TOY1STEP(Y2>YlORI ) :GO 
SUB2000:NEXT 
690 GOTO!40 
700 REM 

710 REM *** CLEAR *** 

720 REM 
730 GOTO 130 
800 REM 

810 REM ***LINEE*** 

820 REM 

830 IFL=1THEN 8 5 0 

84 0 L=1 :Xl =X:Yl=Y:GOSUB20 0 0 : GOTO 
1 40 

850 L=0:X2=X:Y2=Y:Y=Yl 

8 55 SP=(ABS(Yl-Y2) )/(ABS(Xl-X2) ) 

860 FORX=XlTOX2STEP.3*(Xl>X20Rl) 

:Y=Y+(SP*.3*(Yl> Y20R1) ) :GOSU 
B2000:NEXT:GOTO!40 
900 REM 

910 REM *** CERCHI *** 

920 REM 

930 IFC = 1THEN 9 50 

9 40 C = 1:X1=X:Yl=Y:GOSUB200 0: GOTO 

1 40 

950 C=0:X2=X:Y2=Y 
955 Ri=SQR(((XI-X2) t 2)+((Yl-Y2) T 
.2)):R2=Rl*.72 

960 FORT=OTO2 * STEP(1 .5/Rl) :X=(R 
1 *(COS(T) ))+X1 :Y =(R2*(SIN(T) 

) ) +Y1 :GOSUB2000 :NEXT 
970 GOTO!40 
1000 REM 

1010 REM *** SU *** 

1020 REM 
1030 Y=Y-1 

1040 ON M + l GOSUB 2000,2100 

1050 GOTO140 
1100 REM 

1110 REM *** GIU' *** 

1120 REM 
1130 Y = Y+1 

1140 ONM+1GOSUB2000,2100 


1 150 GOTO!40 
1200 REM 

1210 REM *** SINISTRA *** 

1220 REM 
1 230 X=X-1 

1 240 ONM+1GOSUB2000,21 00 
1250 GOTO140 
1 300 REM 

1310 REM *** DESTRA*** 

1320 REM 
1 330 X = X +1 

1 340 ONM+1GOSUB2000,21 00 
1350 GOTO!40 
1400 REM 

1410 REM * * * SAVE DELLA SCHERMATA 
* * * 

1420 REM 

1 4 30 POKE53 2 7 2,21 :POKE53265,27 :P 
OKE56576,1 47 :POKE53269,0 
1440 INPUT"{ 2 GIU'jDISCO O CASS 
ETTA (D/C)";DC$ 

1 450 IFDC $ = "D"THEN 1 480 
1 460 IFDC$ = "C"THEN1490 
1470 INPUT"{SU}INTRODUCI D O C 
{ 12 SPAZI}";DC$ 

1480 OPEN1,8,4,"@"+SN$+".SCN,W" 
:GOTOl495 

1490 OPENl,1,1,SN$+".SCN" 

1 49 5 FORR=2 4 5 7 6T0 32 7 6 7 :PRINT#1 ,P 
EEK(R) :NEXT:CLOSEl 
1 496 POKE5327 2,29:POKE53265,59 : P 
OKE56 5 7 6,1 98 :POKE53269,255 : 
GOTOl40 
1500 REM 

1510 REM *** LOAD DELLA SCHERMAT 
A * * * 

1520 REM 

1 53 0 POKE53 2 7 2,21 :POKE53265,27 : P 
OKE56576,1 47 :POKE532 69,0 
1535 INPUT"{CLR}{ 2 GIU'jNOME DE 
LLA SCHERMATA";SN$ 

1537 INPUT"CARICHI DA DISCO O DA 
CASSETTA(D/C)";DC$ 

1 540 IFDC $ = "D"THEN1570 
1 550 IFDC$ = "C"THEN1580 


1560 INPUT"{SU}INTRODUCI D O C 
{ 12 SPAZI}";DC$ 

1 56 5 IFDC $ < >"D"ORDC $ < >"C"THEN156 
0 

1 566 GOTOl540 

1 570 OPENl ,8,4,"+SN$ + ".SCN,R" 
:GOTOl590 

1 580 OPEN1 ,1 ,0 , SN$ + ".SCN" 

1 59 0 FORR= 24 576TO3 2 7 6 7:INPUT#!,H 
: POKER,H:NEXT:CLOSEl 
1 59 6 POKE53 27 2,29 :POKE5326 5,59 : P 
OKE56 57 6,1 98 :POKE532 69,255 : 
GOTOl40 
2000 REM 

2010 REM *** PUNTI INSERITI *** 
2020 REM 
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20 30 P= (24 576+(INT(Y/8))*320+(IN 
T(X/8))* 8+(YAND7)) 

204 0 POKEP , PEEK ( P ) OR2 t (7 - (XAND7) 
) : RETURN 
2100 REM 

2110 REM *** PUNTI DISINSERITI * 
★ * 

2120 REM 


2130 P=(24576+(INT(Y/8))*320+(IN 
T(X/8))*8+(YAND7)) 

21 40 POKEP ,PEEK (P) OR2.t (7- (XAND7) 

) 

2150 P=(24576+(INT(Y/8))*320+(IN 
T(X/8))*8+(YAND7) ) 

2160 POKEP,PEEK(P)AND(255-(2t(7- 
(XAND7)))) :RETU RN 



S nap è un gioco adatto a persone di tutte le 
età. 

Esso è. in pratica, un test di riflessi celato in 
un gioco d'azione molto divertente. 

In S nap vengono mostrati due mazzi di carte 
di cui viene scoperta una carta alla volta, il cui 
valore è visualizzato al centro della carta 
stessa. 

Quando due carte uguali vengono scoperte, bi¬ 
sogna prontamente premere un tasto. 

Se si è abbastanza veloci si vincono un nume¬ 


1 REM SNAP BY A & A SOFTWARE 
5 POKE53280,2 :POKE53281 , 1 5:POKE5 
4272+24,15 
10 GOSUBl200 
20 GOSUB750 
25 GOSUBl00 
30 GOSUBl50 
35 GOSUB500 
40 GOSUB260 
50 GOSUB210 
55 GOSUB500 
60 GOSU8260 
70 GOTO30 
100 PRINT"{CLR}" 

110 PRINT"[<7>]{ 8 DES}{RVS} 

[<A>]{ 5 *_}[<S>]{ 10 DES} 
[<A>]{ 5 *}[<S>]" 

111 PRINT"{ 8 DES}{RVS}-U 

{ 3 *}!-{ 10 DES}-Ul~3 *}I- 

112 PRINT"{ 8 DES}{RVS}{ 2 _-} 

{ 3 SPAZI}{ 2 -} { 10 DES} 

{ 2 -}{ 3 SPAZI}{ 2 -}" 


ro di punti corrispondenti al numero di carte 
scoperte fino ad allora. 

Altrimenti il vincitore sarà il caro C64. 

Ciò accadrà anche se viene premuto un tasto 
quando le due carte sono diverse. 

Vince chi dei due raggiunge per primo i 100 
punti. 

Ed ora si può dare il via ad una partita ’snap- 
posa ' e non c ’è da preoccuparsi perché il C64 
non è un baro!! 


113 PRINT" { 8 DES } { RVS } { 2 -!0 
[ <T> ] P { 2 j-} { 10 DES} 

{ 2 -To[<T>]P{ 2 -}" 

114 PRINT"! 8 DES}{RVS}{ 2 -} 

[ <G>) [ <M>] { 2 -]{ 10 DES} 

{ 2 -}[<G>] [<M>]{ 2 -}" 

115 PRINT"{ 8 DES}{RVS}{ 2 
[ < @> ] @{ 2 -_} { 10 DES} 

{ 2 ^TL[<@>]@{ 2 -}" 

116 PRINT"! 8 DES}{RVS}{ 2 ^} 

{ 3 SPAZI}{ 2 _-}{ 10 DES} 

{ 2 -} { 3 SPAZI } { 2 _-}" 

117 PRINT"{ 8 DES}{RVS}-J 

{ 3 *}k-{ io des}-j!-3 *}K- 

II 

118 PRINT"{ 8 DES}{RVS}[<Z>] 

{ 5 *}(<X>){ 10 DES}1<Z>] 

{ 5 *}[<X>]" 

140 RETURN 

150 B=INT(RND(1)*10)+48 
160 C=0:F=F+1 
180 POKEl235+C,B 
190 POKE55507+C,0 
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200 GOSUBl000:RETURN 
210 D=INT(RND(1)*10)+48 
220 C=9:F=F+1 
230 POKE1243+C,D 
240 POKE55515+C,0 
250 GOSUBl000:RETURN 
260 GETE$ 

270 IFB<>DANDE$<>""THEN350 
275 IFB< >DTHENE$="0": RETURN 
280 I FE$ = ""THEN 3 50 
290 PR1NT"{HOME}{ 12 GIU'}{BER} 
{RVS}MI HAI BATTUTO{BLU}" 

300 PS=PS+F:F=0 
310 GOSUB500:GOTO370 

350 PRINT"{HOME}{ 12 GIU'}{BLK} 
{RVS}TI HO BATTUTO{BLU}" 

360 CS=CS+F:F=0 
365 GOSUB500 
370 POKEl503+G,32 
380 G=G+1 
390 IFG=15THEN410 
400 GOTO370 

410 PRINT"IL TUO PUNTEGGIO="PS 
420 PRINT"IL MIO PUNTEGGIO="CS 
425 G=0 

430 IFCS>100THEN550 
440 IFPS>100THEN650 
450 RETURN 
500 FORZ=1TOZZ:NEXT 
51 O- RETURN 

550 POKE53280,2:POKE53281 ,15 
560 PRINT"{RVS}{ 12 DES}TI HO BA 
TTUTO ! !" 

590 GOSUBl000 
600 FORI=lT01000:NEXT 
620 PRINT"{CLR}{ 2 GIU'}VUOI SFI 
DARMI ANCORA UNA VOLTA 
{ 2 SPAZI}(S/N) ?" 

625 GETA$: IF A$ = ""THEN 62 5 

626 IFA$="S"THENFORU=lTO2000:NEX 
T: RUN 

627 IFA$="N"THENPRINT"{ 2 GIU'} 
{RED}AVEVI PAURA DI NON REGG 
ERE AL CONFRONTO?",," 

{ 2 SIN}(S/N)" 

628 GETA$:IFA$=""THEN628 

629 IFA$="S"THENPRINT"{GRN} 

{ 2 GIU 1 }ALLORA SEI PROPRIO 
UN POLLO DA CORTILE!1":END 

630 IFA$="N"THENPRINT"{ 2 GIU'} 
{RED}ALLORA SU, FORZA, VOGLI 
O PROPRIO VEDERE!" 

631 FORU=lTO2000:NEXT:RUN 
650 POKE53280,2 :POKE53281 ,1 5 

660 PRINT"{RVS}{ 12 DES}MI HAI B 
ATTUTO !" 

690 GOSUBl000 

700 FORI=lT01000:NEXT 

710 GOTO620 

750 GOSUBl00 

760 PRINT"{ 2 GIU'}" 


770 PRINT"{ 15 DES}{BLK}***SNAP* 
* *« 

780 K=K+1:GOSUB500 
790 IFK=6THENRETURN 
800 GOSUBl000 
810 GOTO770 

1 000 SI = 54272:FL=SI:FH=SI + 1:TL=S 
1+2 :TH=SI + 3:W=SI + 4:A=SI + 5:H 
=SI+6:L=SI+24 

1010 POREA, 255 :POKEH,242 :POKEFH, 
40 :POKEFL,200 :POKEW,33 
1 020 POKEW,32 : RETURN 
1200 PRINT"{CLR}{BLU}" 

1210 PRINT:PRINT 

1220 PRINT"{ 10 SPAZI{DIFFICOLTA 
' (1/1000){ 10 SPAZI}{GIU'} 

”,"{SIN}(1=DIFF./1ooo=facil 
E) ." 

1230 INPUTZZ 
1240 RETURN 


30 


la prima rivista europea 
di personal computer, 
software, accessori, 
la più prestigiosa 
e più diffusa in Italia 

con tutta la competenza del 


© GRUPPO 

EDITORIALE 

JACKSON 


Per ricevere gli arretrati di ìy’tf'J compilare il seguente tagliando: 


Compilare ed inviare in busta chiusa a: 
viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 



Nome _ 


Cognome 


Indirizzo 


Prov. 


Città 


CAP 


Desidero ricevere i seguenti numeri arretrati di 



'Anno 



Anno 


dedicato a 


a L. 2.000 cad. per un totale di L. 


□ assegno allegato 


□ contanti allegati 


a mezzo 





























A Milano, 

in via Mascheroni 14. 
la prima software 
lineria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Librerìa JACKSON 

La prima software - libreria italiana. 


A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 






